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Pref  ace 


The  purpose  of  this  study  was  to  numerically  simulate 
the  flow  field  for  NACA  0012  airfoil  with  mass  transfer 
through  the  sur  fdte  \fan>.  Kecent  emphasis  in  V/STOL  and 
the  advancements  in  today's  technology  has  created  an 
environment  where  a  detailed  knowledge  of  the  flow 
characteristics  involved  in  lift  augmentation  is  needed. 
One  particular  area  especially  lacking  in  research  is  the 
"Fan-in-wing"  device.  Such  a  device  was  not  practical  in 
the  60' s  when  it  was  studied  for  its  vertical  take  off  and 
hovering  performance.  However,  with  today's  advances  in 
material  science,  propulsion  and  aviation  technology,  such 
a  device  could  be  practical. 

In  two-dimensions,  a  "fan"  is  characterized  by 
suction  normal  to  the  upper  airfoil  surface  and  vectored 
blowing  on  the  lower  airfoil  surface.  This  study  examines 
the  lift  and  drag  effects  of  such  a  device  with  varying 
suction  velocity,  ejection  angle  and  angle  of  attack.  The 
current  "state  of  the  art"  in  computational  fluid  dynamics 
<CFD)  makes  it  possible  to  do  this  initial  study  by 
numerical  simulation.  It  is  hoped  that  the  results 
obtained  in  this  work  can  be  an  aid  in  the  design  of 
future  experimental  tests  which  will  verify  these 
numerical  results  and  perhaps  lead  to  V/STOL  applications. 

I  would  like  to  thank  Dr.  Halim  for  supervising  this 
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work,  and  Capt  Beran  -for  his  support  and  aid  in  this 
research.  I  would  also  like  to  thank  Dr  Shang,  the  sponsor  of 
this  research,  and  the  wonderful  group  of  people  that  work 
for  him  at  the  Flight  Dynamics  Laboratory.  Without  their 
technical  guidance  and  sharing  of  compu  t»  r esources , 
this  thesis  could  not  have  been  accomplished. 

Finally,  My  wife  and  two  small  children  need  a 
special  thanks  for  their  patience,  understanding  and 
support  during  the  many  late  nights  and  busy  weekends 
over  the  past  five  months.  I  can  now  begin  to  try  and 
make  it  up  to  them. 
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Abstract 


The  purpose  of  this  study  was  to  determine,  through 
numerical  simulation,  the  two-dimensional  effect  of  mass 
transfer  (fan)  on  a  NACA  0012  airfoil.  A  "fan"  is 
char acter 1 z ed  by  suction  on  the  upper  surface  of  an 
airfoil  and  corresponding  blowing  from  the  lower  surface. 
The  results  are  presented  through  the  comparisons  of  lift 
and  drag  coefficients,  pressure  and  skin  friction 
coefficient  profiles,  and  streamline  and  vorticity 
contours.  The  numerical  code  used  in  this  study  is  based 
on  the  Beam-Warming  approximate  factorization  algorithm 
which  is  used  to  solve  the  mass-averaged,  compressible 
Navier — Stokes  equations  for  viscous,  unsteady  flows.  The 
grid  used  in  this  study  was  a  c-grid  produced  from  a 
hyperbolic  grid  generating  code. 

This  study  examined  the  effect  of  varying  suction 
velocity  <1,  5  and  10  percent  of  the  free  stream  velocity), 
ejection  angle  (15,  45  and  90  degrees)  and  angle  of  attack 
<0,  2  and  4  degrees) .  The  results  indicate  that  suction 
has  wily  a  small  influence  on  lift;  but,  produces  a  large 
viscous  drag  proportional  to  the  suction  velocity.  Blowing 
produces  a  large  lift  component  due  to  a  modified  pressure 
distribution  surrounding  the  leading  edge  and  only  a  small 
drag  penalty.  Blowing  also  creates  an  unsteady  periodic 
solution.  The  unsteady  behavior  is  the  result  of  vortex 
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shedding  caused  by  the  interaction  of  a  broad  shear  layer 
■formed  behind  the  ejection  surface  which  induces  a 
circulation  around  the  trailing  edge.  The  shedding  of  the 
trailing  edge  vortex  creates  periodic  oscillations  in  lift 
and  drag,  but  is  not  responsible  for  the  large  mean 
increase  seen  in  lift. 

Increasing  suction  velocities  produced  a  linear  increase 
in  lift.  A  maximum  drag  penalty  occurred  at  medium  values  of 
suction  (57.)  .  The  mass  flow  for  the  suction  velocities 
studied  were  too  small  to  provide  substantial  lift;  but, 
did  provide  a  substantial  thrust  component  at  an 
ejection  angle  of  15°  and  a  suction  velocity  of  107.. 

Ejection  angles  mildly  affected  lift;  but  reduced 
drag  considerably  at  lower  ejection  angles  (15°)  due  to 
thrust.  Increasing  angles  of  attack  (a)  produced  a  large 
linear  increase  in  lift  and  a  correspondi ng  reduction  in 
drag  near  that  of  a  clean  airfoil. 

The  results  indicate  that,  in  two-dimensions,  a  "fan" 
type  device  can  produce  aerodynamic  benefits  and  warrants 
additional  experimental  and  numerical  studies,  with  an 
emphasis  on  the  lift  curve  slope  and  stall  behavior. 

The  effect  of  different  fan  geometries,  boundary  conditions 
and  cambered  airfoils  should  also  be  investigated. 
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NAVI ER-STOKES  SOLUTION  FOR  A  NACA  0012  AIRFOIL 


WITH  MASS  FLUX  (FAN) 


I  Introduction 


The  e-f-fect  o-f  mass  flux  on  a  NACA  0012  airfoil 
section  is  the  focus  of  this  research  project.  This  study 
15  accomplished  through  the  use  of  numerical  analysis 
based  on  the  mass  averaged,  compressible  Navi er-Stokes  (NS) 
equations.  For  this  report  mass  flux  is  defined  by  the 
intake  of  mass,  suction,  on  the  upper  surface  of  the 
airfoil,  and  the  ejection  of  mass,  blowing,  on  the  lower 
surface.  The  mechanism  providing  the  suction  and  blowing 
will  be  referred  to  as  a  "fan"  (see  Figure  1).  Though  in 
two-dimensions  this  behavior  could  be  contributed  to  a 
variety  of  devices. 

The  concept  of  a  "fan-in-wing"  (see  Figure  2)  has 
been  around  since  the  late  50’ s,  reached  its  peak  in  the 
late  60’ s  and  was  essentially  discarded  in  the  mid  70’ s  as 
being  impractical.  The  "fan-in-wing"  was  first  considered 
in  the  50’s  for  its  vert i cal /short  take  off  and  landing 
(V/ST0L)  ability  (23:8).  However,  the  technology  and 
material  sciences  of  the  times  forced  designs  that  were 
heavy  and  large.  A  typical  size  fan  covered  between  40  to 
50  percent  of  the  wing  area,  "flying  fan". 
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The  607  s  technology  produced  some  aircraft  employing 
a  "fan-in-wing"  concept.  The  most  notable  being  the  Ryan 
XV-5 a  which  employed  a  jet  powered  wing  li-fting  -fan  (see 


Figure  3)  (20:38).  But,  most  research  and  development 

concentrated  on  the  "tilt  wing"  concept  (28:2-28)  which 
has  -found  many  applications  with  the  implementation  of  the 
modern  turbo  fan. 


In  the  70’ s  the  fan  gave  way  to  jet  technology  which 
was  lighter  and  more  powerful  (see  Figure  4)  and  led  to  the 
development  of  the  Harrier.  "But  in  1980  there  is  still 
only  one  true  VSTOL  aircraft  in  the  free  world  that 
reached  the  operational  stage,  the  Hawker  Siddeley 
Harrier  (20:3)."  Renewed  interest  in  VSTOL  and  current 


development  in  material  science  and  compressor  technology 
suggest  that  a  second  look  is  warranted  for  the 
"fan-in-wing";  with  an  emphasis  on  the  flow 
character 1 st 1 cs  and  possible  applications  to  future  STOL 
technol ogy - 


Figure  4.  V/STOL  Aircraft  Configurations  <2s:i4) 

The  positive  effect  of  suction  on  boundary  layer 
control  and  thus  aircraft  performance  has  been  well 
documented  and  is  in  practical  use  (31:43-44).  The  fluid 
particles  in  the  boundary  layer  over  an  airfoil  surface 
have  a  much  lower  kinetic  energy  than  do  the  fluid 
particles  outside  the  boundary  layer,  due  to  the  no  slip 
condition  and  skin  friction  at  the  airfoil  surface 
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(31:24-25).  As  the  low  energy  particles  over  the  airfoil 
surface  mix  with  the  outer  boundary  they  increase  the 
thickness  of  the  low  energy  boundary  layer  thus 
decreasing  its  stability  (see  Figure  5)  (31:25).  And  under 

unfavorable  conditions  separation  can  occur  causing  a 
substantial  increase  in  drag  and  a  decrease  in  lift  which 
can  lead  to  early  stall  behavior  at  high  angles  of  attack 
(22:411-413).  in  boundary  layer  control  the  low  energy 
boundary  layer  is  sucked  away  and  the  the  outer  boundary 
is  free  to  accelerate  while  a  new  smaller  boundary  layer 
reforms,  thus  improving  lift  performance  and  delaying 
separation  (31:381,382). 


<  compare  > 


WL 


/77777777T77 

more  stable 


77Z 


7777/77 

less  stable 


77/7/ 77// 

more  stable 


Figure  5.  Effect  of  Boundary  Layer  Geometry 
Stability  <23:2<55> 


In  principle  the  effects  of  boundary  layer  control  by 
suction  can  be  extended  to  a  fan,  the  results  are  not  as 
promising.  The  effect  of  suction  produced  by  a  fan  is 
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not  as  well  understood.  The  best  results  -for  suction  are 
obtained  when  the  slot  widths  are  of  the  same  order  as  the 
displacement  thickness  (see  Figure  6)  which  is  much  much 
smaller  than  a  tan  width  (23:269). 


Suction 


Figure  <S.  Effect  of  Suction  on  the  Boundary  Layer 

The  ettect  ot  blowing  on  the  other  hand  is  not  well 
understood.  Most  research  on  blowing  has  concentrated  on 
surface  blowing  which  is  tangent  to  the  airfoil.  This 
research  has  led  to  practical  applications  such  as  the 
"jet  flap"  and  "slotted  wing"  (see  Figure  7)  (31:380,301); 

while  the  effect  of  blowing  normal  to  the  surface  has  been 
carefully  ignored. 

"it  is  mandatory  to  pay  careful  attention  to  the 
shape  of  the  slit  in  order  to  prevent  the  jet  from 
dissolving  into  vortices  at  a  short  distance  behind 
the  exit  section  (31:380). 
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Figure  7.  Boundary  Layer  Control  a>  Blowing 

b>Slolted  Wing  OSuction  (31:301  ) 

At  the  very  least,  blowing  which  is  non-tangent  to  the 
surface  will  produce  vortices  which  will  cause  separation 
and  produce  a  large  separated  area  behind  the  blowing 
exit  (see  Figure  8)  (31:28-29).  What  is  not  understood  is 

the  effect  of  blowing  on  the  pressure  distribution  of  the 
airfoil  surface  and  the  effective  camber  produced  by 
turning  the  xlow.  If  the  blowing  configuration  is  such 
that  vortices  are  shed  then  an  unsteady  solution  can  be 
expected . 

Some  studies  were  done  in  the  60' s  on  the  optimal 
configuration  for  a  "fan-in-wing*'  (23:254).  These  studies 
focused  on  the  macroscopic  behavior  of  lift  and  drag  and 


did  not  study  the  flow  interaction.  These  studies  do 


Figure  8.  Blowing  Non-Tangent  to  the  Surface. 

indicate  that  a  horizontal  "-fan-in-wing"  can  produce 
additional  lift  and  reduce  drag  (  see  Figure  9). 

The  effect  of  the  fan  on  the  wing  is  somewhat 
similar  to  the  section  of  a  jet  flap.  The  efflux 
from  the  fan  is  discharged  in  a  direction  normal  to 
the  plane  of  the  wing  and  then  turns  in  the 
downstream  direction.  <29:254) 

These  experimental  results  suggest  that  the  use  of 
inlet  vanes  to  guide  the  incoming  flow  is  detrimental  to 
both  lift  and  drag.  However,  the  use  of  exit  vanes  or 
vectoring  on  the  ejecting  flow  can  reduce  drag  without 
significantly  affecting  lift  or  pitching  moments.  These 
results  also  indicate  that  ejection  angles  of  20  to  30 
degrees  with  respect  to  the  cord  p rnd"re  the  best 
performance  (23:257). 
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Ftgure  P.  Three-Dimenstonal  Effects  of  a  Fan 

As  long  as  the  concept  has  been  around,  the 
performance  and  flow  -field  characteri st i cs  o-f  the  -fan 
are  still  not  well  understood.  "There  is  still  no 
acceptable  theory  for  predicting  the  performance  of  a 
fan-in-wing  configuration.  At  best  we  will  probably  have 
to  resort  to  a  numerical  solution  <23? 258-259) . "  With  the 
current  "state  of  the  art"  in  Computational  Fluid  Dynamics 
( CFD ) ,  it  is  possible  to  numerically  simulate  complex 
flow  field  such  as  a  "fan-in-wing". 

In  a  numerical  study  many  more  configurations  can  be 
tested  in  less  time  and  at  lower  cost  than  in  an 
experimental  study  (2:45).  The  problem  with  numerical 
studies  is  that  they  can  only  simulate  a  problem  but  can 
not  ensure  its  validity.  This  is  why  numerical  solutions 
must  be  compared  with  experimental  studies  to  validate 
their  accuracy  before  small  departures  from  the  validated 
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model  configuration  and  test  conditions  can  be  introduced 
(32).  The  new  solutions  can  then  provide  valuable  insight 
for  future  experimental  and  numerical  studies.  This  can 
then  become  a  continuous  cycle  of  validation,  insight, 
test,  validation... 

The  main  difficulty  in  predicting  the  effect  of  the 
fan  on  the  wing  is  that  it  is  characterized  by  a  three- 
dimensional  flow  field.  A  vortex  is  produced  in  the  plane 
of  the  wing  and  interacts  with  the  flow  normal  to  the  fan 
(see  Figure  9).  This  problem  can  be  simplified  into  two 
dimensions  by  ignoring  the  vortex  formed  by  a  rotating  fan 
and  calculating  only  the  effects  of  suction  and  blowing 
normal  to  the  plane  of  the  airfoil. 

This  report  looks  only  at  the  two-dimensional 
problem,  suction  and  blowing  and  as  such  can  be 
described  by  any  number  of  mechanisms;  however,  the  term 
"fan"  will  be  retained  in  describing  the  model.  The  focus 
of  this  report  is  on  the  effect  of  mass  flux  on  the  lift 
and  drag  performance  of  an  airfoil  section,  and  the 
characteristic  behavior  of  the  flow.  The  problem  is 
further  simplified  by  keeping  the  geometry  and  flow 
condition  fixed  (appendix  C)  . 

The  model  used  for  this  report  is  based  on  the  NACA 
0012  airfoil  section  because  its  behavior  has  been  well 
documented  over  a  wide  range  of  conditions  (1:462,463;  24) 
that  will  serve  as  a  basis  for  validating  the  numerical 


solution  without  blowing.  The  tan  model  used  assumes  no 
inlet  vanes  but  ejection  vanes  are  used  in  order  to  allow 
smooth,  vectored,  parallel  ejection.  The  effect  of  varying 
suction  velocities,  ejection  angles  and  angles  of  attack 
was  studied. 

The  model  conditions  were  picked  for  optimum 
numerical  performance.  Compressible  codes  perform  better 
at  higher  Mach  numbers  (34)  and  for  this  reason  M  =  0.3 
was  chosen.  The  Reynolds  number  (Re)  can  also  have  a 
dramatic  affect  on  the  solution.  If  Re  is  too  low  current 
turbulence  models  have  difficulty  in  describing  the 
physics  correctly  and  if  it  is  too  high  then  the  strong 
compressible  effects  require  extremely  high  numerical 
resolution.  For  these  reasons  Re  =  1,000,000  was  chosen. 
This  value  is  well  above  the  laminar  flow  region  (18)  and 
much  smaller  than  the  critical  Re  for  stall  (22:413)  for 
this  airfoil  which  could  create  problems  at  high  angles  of 
attack  (34) . 

Boundary  conditions  on  the  upper  surface  were  chosen 
such  that  the  velocity  on  the  surface  was  normal  to  the 
surface  with  a  constant  fractional  value  of  the  free 
stream  velocity  (see  appendix  C) .  Because  enhancements 
were  being  sought,  the  velocity  ejecting  from  the  lower 
surface  was  chosen  to  be  constant  in  magnitude  and 
direction.  The  ejection  angle  was  measured  from  the 
cord  assigned  a  value  between  15  and  90  degrees.  The 
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parameters  considered  tor  comparison  and  analysis  were  the 


coe-f-f  i  ci  ents  of  lift,  ,  drag,  and  pressure,  . 

The  Navi er -Stokes  code  used  in  the  analysis  (appendix 
F) .  was  a  modified  version  of  a  code  developed  by  Miguel 
Visbal  (36)  at  the  Air  Force  Wright  Aeronautical 
Laboratories  (AFWAL)  Flight  Dynamics  Lab  (FDL) .  This  code 
is  based  on  the  "full"  compressible  Navi er-Stokes 
equations  for  viscous  flow  and  uses  the  Beam— Warming 
Implicit  Factored  Scheme  (4).  The  turbulence  model  is 
based  on  work  done  by  Baldwin  and  Lomax  (8).  The  "full" 

NS  code  was  chosen  over  the  approximate  NS  (ANS)  and  the 
parabolized  NS  (PNS)  codes  because  of  the  large  stream 
wise  variation  and  the  dynamic  behavior  of  the  flow  field. 
The  suction  and  blowing  alter  dramatically  both  the 
direction  of  the  flow  and  the  viscous  behavior  at  the 
surface.  And  for  the  first  numerical  attempt  at  this 
problem  a  more  accurate  code  was  needed  to  insure 
numerical  accuracy.  A  compressible  code  was  also  needed 
because  of  the  compressibility  imposed  on  the  flow  by  the 
fan  boundary  conditions.  Changes  to  the  code  involved 
boundary  conditions,  i nput /output ,  turbulence  modeling, 
force  and  residual  calculations  and  loop  structure  to 
reduce  memory  requirements. 

Tests  on  different  grids  were  performed  in  order  to 
determine  an  optimum  spacing  configuration.  The  grids 
were  developed  using  a  hyperbolic  grid  generator  (appendix 
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G)  also  provided  by  the  Flight  Dynamics  Laboratory  (FDL) 
The  grids  were  tested  using  the  above  code  in  order  to 
determine  the  optimum  spacing  needed  to  resolve  the 
problem  accurately.  Tests  were  done  on  the  code  using  a 
symmetric  grid  representing  a  NACA  0012  air-foil  and 
comparing  results  with  known  solutions  for  both  laminar 
and  turbulent  cases.  The  results  from  the  final 
unsymmetric  grid  were  then  compared  for  grid  effects. 
Details  on  the  grid  analysis  are  presented  in  the  Results 
and  Discussion  section.  After  the  grid  was  verified  the 
fan  modi f i cat i ons  were  added  and  results  were  obtained. 
There  was  no  available  fan  data  for  comparison  and  as  such 
the  results  remain  to  be  verified  through  future 
experiments  and  additional  numerical  simulations. 

Computer  resources  were  provided  by  FDL  and  included 
accounts  on  the  Aeronautical  Systems  Division  Cyber 
Computer  and  Cray  XMF.  The  Cray  was  used  for  running  the 
Code  (appendix  E)  and  performing  data  analysis  too  large 
for  the  Cyber;  all  other  analysis  and  plots  were  performed 
on  the  Cyber. 
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1 1 


Anal ysi s 


Governing  Equations 

The  mathematical  equations  which  describe  the  behavior 
of  a  fluid  (gas)  in  motion  are  based  on  the  Principles  of 
Conservation  of  Mass,  Momentum,  and  Energy.  These 
equations  are  often  grouped  together  and  referred  to  as  the 
Navier-Stokes  (NS)  Equations  though  only  the  momentum 
equation  is  credited  to  Wavier  and  Stakes  (41:71).  These 
equations  are  listed  below  in  vector  notation  and  are 
valid  for  unsteady  compressible  and  viscous  flows  (6:88-96). 


Continuity  (  Conservation  of  Mass  ) 


+  V* (pV>  =  o 


Momentum  (  Conservation  of  Momentum  ) 


d(pV)  . 

at 


V*  (p W) 


pf  +  V*  a 


Energy  (  Conservation  of  Energy  ) 


(1) 


(2) 


dEt_ 

at 


<VV)Et 


pf  *V 


+  <?♦  (trV) 


V*  q 


<3) 
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where  the  shear  stress  term  £  is  related  to  the  pressure, 
P,  and  viscous  stress  tensor,  r  (16:6) 

£  =  -PI  +  r  (4) 

The  definition  of  variables  used  can  be  -found  in  the  list 
of  symbols  near  the  beginning  of  this  report. 

Three  additional  equations  are  needed  to  relate 
P,  r  and  heat  conduction,  q.  If  a  perfect  fluid/gas  is 
assumed  then  the  equation  of  state  can  be  used  (16:7) 

P  =  pRT  =  pe ( y— 1 )  (5) 

and  if  a  Newtonian  fluid  is  assumed  then  Stake's  law  of 
friction  can  be  used  (14:12) 

T  =  \(V«V)I  +  M(W  +(W)T)  (6) 

and  the  third  equation  relates  the  heat  flux  vector  to  the 
temperature  gradient  by  Fourier's  law  of  heat  conduction 

q  =  -  kVT  ;  V*q  =  -7* (kVT)  (7) 

where  the  conductivity  k  is  a  function  of  the 
temperature.  (14:11-12) 

Total  internal  energy,  can  be  related  to  the 
specific  internal  energy,  e,  and  velocity  by  the  following 
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relationship  (15:13) 
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equations  can  be  non-di mensi onal i zed  (see 
applying  the  -following  definitions  (an  * 
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The  non 
conservation 
system. 


dimensional  NS 
law  -Farm  for  a 


equations  are 
2-D  cartesian 


written  below 
coordinate 


i  n 
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dt  dx  dy 
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where  the  internal  heat  generation,  Q,  is  assumed  constant 
in  t i me  (15:32) . 

The  non— dimensional ized  stress  terms  in  index  notation 
are  (16:6) 


T 


p  r  au 

Re  I  ax  L 

j 


+  <5  X 


(14) 


The  above  equations  can  be  transformed  for  varying 
geometries  by  applying  a  coordinate  transformation.  For 
any  given  geometry  the  coordinates  can  be  related  to  a 
square  with  unit  axes  of  1  (see  Figure  10)  by  using  the 
chain  rule  of  partial  differentiation  to  relate  the 
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(a)  Physical  Plane 


(b)  Transformed  Plane 


Ooneral  Transformation  from  Tho  Physical  Domain  a 
to  tho  Computation  Domain  b  (34:47) 


physical  domain  (x,y)  to  the  computational  domain  ( 
Where  (2:252) 

Z  =£(>:,  y)  ,  7}  =  r)  (x  ,  y) 
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The  metrics  are  determined  in  the  following  manner 
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Therefore 
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Where  the  Jacobian  J  is  given  by  (21:416) 
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and  the  transformation  metrics  are  given  by  (35:7) 
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Further  simplifications  can  be  applied  after  the 
coordinate  transformation  is  completed.  The  chain-rule 
conservative  NS  equations  without  body  forces  f  written  in 
terms  of  general  curvilinear  coordinates  (£,7?)  are  as 
follows  (35:5-6) 
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(27) 


Where 
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Stokes  hypothesis  gives  (31:60) 


x  =  -  5  p 


Where  p  is  de-fined  as  the  molecular  dynamic  viscosity.  It 
can  be  extended  to  include  turbulent  eddy  viscosity,  c 
(35:6) 


X  —  ~  ~  (p+c) 
t  3 
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The  thermal  conduct  1  vi  ty ,  k,  is  separated  into  k  -for 
the  -fluid  and  k  tor  the  turbulent  properties.  Then  the 
viscous  stress  and  heat  conduction  terms  can  be  written  in 
the  following  form  (35:6) 

t  =  -3  X.  u  +  Xt(u  +  v  )  (33) 

xx  t  x  x  y 

T  =  ~^r  X  <U  +  V  )  (34) 

xy  z.  t  x  y 
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q  =  -<k  +  k  )  T  ;  q  =  -<k  +  k  )  T  (37) 
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where  the  molecular  Prandtl  number  is  de-fined  by  (35:6) 


Pr 


S  .72 


<41 ) 
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and  the  turbulent  Prandtl  number  is  defined  by  (35:7) 


£C 

Pr  =  — P  ^  .9 
t  k 


(42) 


where  the  specific  heat  at  constant  pressure,  c  for  a  perfect 

p 

gas  is  defined  by  (12) 


c  =  ^  1,000  J/Kg-K  (43) 

p  y—  1 


The  NS  equations  can  be  written  in  the  following  strong 
conservation  form  by  applying  the  coordinate 
transformation  identities  previously  discussed  (35:7) 


3U  +  dF  +  0G  =  0  (44) 

at  W  ar} 
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Rewriting  equation  (44)  allows  for  an  easier 
implementation  of  the  implicit  algorithm  scheme  (section  III) 
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u  and  v  denote  the  contr avar i ent  velocities  (35:9) 
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The  viscous  coefficients  are  (35:4): 
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The  above  NS  equations  written  in  terms  of  general 
curvilinear  coordinates  are  valid  -for  both  subsonic 
and  supersonic,  unsteady,  compressible,  viscous  -flows. 

The  governing  equations  form  a  hybrid  hyperbol i c-parabol i c 
system.  Their  parabolic  nature  comes  -from  the  second— order 
derivatives  in  the  momentum  and  energy  equations  which 
provide  dissipative  effects.  The  continuity 
equation  contains  only  first-order  terms  and  is 
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hyperbolic;  without  the  unsteady  density  term  it  would  be 
elliptic.  These  relationships  dictate  the  manner  in 
which  the  initial  and  boundary  conditions  can  be 
applied. (25:312) 

Additional  approximations  must  be  made  in 
order  to  solve  a  finite  difference  problem  (discussed  in 
section  III).  The  main  difficulties  are  in  the  area  of 
turbulent  flow,  where  at  best,  turbulent  models  are  only 
approximate  and  rely  heavily  an  empirical  data. 
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Ill  Numerical  Solution  of  the  NS  Equations 


The  numerical  method  -for  solving  the  NS  equations  as 
previously  presented  is  discussed  in  this  chapter.  The 
finite-difference  scheme  presented  is  the  result  of  work 
by  R.  F.  Warming  and  Richard  M.  Beam  and  is  known  as 
the  Beam-Warming  approximate  factorization  algorithm  (4). 
The  original  two-dimensional  Navi er-Stokes  code  was 
written  and  verified  by  Dr  Miguel  Visbal  of  the  Flight 
Dynamics  Laboratory  (36).  Modifications  made  by  the  Author 
and  discussed  in  this  chapter  concern  the  airfoil  surface 
boundary  conditions  for  mass  exchange  (fan).  Finally, 
critical  details  such  as  convergence  criteria  and  time 
steps  will  be  presented. 

Implicit  Navi er-Stokes  Code 

The  implicit  code  solves  the  strong  conservative 
formulation  of  the  NS  equations  (1-3)  using  the 
Beam— Warming  approximate  factorization  algorithm  (4:85). 
The  scheme  is  written  in  "delta"  form  with  a  first-order 
Euler  time-differencing  written  as  follows  (35:19): 
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where  n  represents  the  temporal  index  (  i.e.  U  =  U(nAt)  ) 
and  A,  B,  M  and  N  represent  the  Jacobian  matrices.  See 
appendix  B  tor  details. 
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A-fter  applying  second  order  di  f  -f  erencing  the  space 
derivatives  become  (35:19-20): 
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and  the  i  i  ni  te-di  -f  -f  erence  operators  are  (35:20): 


6  f  =  (  f  -  -f  )  /  A£  (78) 

?  ,  J  i.  +  1/2  »  j  i.  -  1/2  ,  J 

<5  -f  =  (  -f  -  -f  )/Atj  (79) 

t  ,  j  +  1/2  i  ,  j  -  1/2 


/j„  -f  =  (  f  -  -f  )  /  2 A?  (80) 

V+l.J  t “I , j 


,u  f  =  (  -f  -  -F  )  /  2Ar)  (81) 

r>i.,j  v.j  +  i 

The  transformation  derivatives  (x„,  x  ,  y„,  y  )  are 
computed  -from  the  body— fitted  grid  by  using  one-sided 
approximations  at  the  boundaries  and  second-order  central- 
differencing  approximations  at  the  interior  points.  A 
solution  is  arrived  at  by  -first  solving  equation  (74) 
during  a  sweep  along  each  r?  line  (2  <  i  <  IL-1),  and  then 
salving  equation  (75)  during  a  sweep  along  each  ^  line  (2 
<  j  <  JL-1).  The  boundaries  (i=l,IL  ;  j=l,JL)  are  then 
solved  explicitly. 
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Artificial  damping  is  needed  to  maintain  the  stability 
of  the  algorithm  and  to  speed  up  convergence  of  the  solution. 
Instabilities  can  occur  in  compressible  flow  computations 
at  high  Reynolds  numbers.  These  instabilities  can  be 
caused  by  nonlinear  effects,  rapid  changes  of  flow 
direction  in  separated  regions,  large  pressure  gradients 
and  the  presence  of  walls  and  outer  boundaries  in  the 
computational  domain.  They  can  create  finite  oscillations 
which  can  slow  down  convergence  consi derabl y . (25:322) 

These  instabilities  and  oscillations  are  removed  by 
adding  an  explicit  fourth-order  damping  term  Do  to 
right-hand-side  of  equation  (74)  and  inserting  two  second 
order  damping  terms  Di.^  and  within  the  respective 

implicit  operators  in  equation  (75)  (35:20): 

Do  =  — woAtJ'1  <6*  +  64)  Un  (82) 

?  V 

Du„  =  — ox.At  J  St  J  I  (83) 

?  «•  .  J  ?  v  .  j 


Do  =  -covAtJ  1  62  J  I  (84) 

T)  i  ,  j  T)  i-  ,  j 

Where  ox  i  s  of  order  one  and  ox.  >  2a>o  . 

For  certain  well  posed  problems  convergence  to 

steady-state  can  be  accelerated  by  employing  local  time 

At  which  is  dependent  upon  the  flow  conditions  and 
wj 

metrics  at  each  individual  point  in  the  grid  (35:22): 
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Where  At max  is  calculated  using  the  modified 

v.J 

Courant-Fr i edri chs-Levy  stability  criteria  (35:22). 
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The  Courant  Number  (CFL)  for  an  explicit  algorithm 
must  be  less  than  one  for  stability.  However,  for  the 
implicit  scheme  CFL  can  be  much  higher  and  is  typically 
set  equal  to  20. 
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brid  Generation 


As  previously  mentioned  the  grids  used  for  this 
report  were  numerically  generated  from  a  "  hyperbolic  grid 
generator"  code  (appendix  G)  .  This  code  is  based  on  an 
algorithm  developed  by  Steger  and  Chaussee  (33)  which 
solves  a  system  of  hyperbolic  partial  differential 
equations.  The  advantage  of  using  a  hyperbolic  grid 
generator  over  an  elliptic  one  is  that  only  the  inner 
boundary  needs  to  be  specified  (2:530),  in  this  case  the 
airfoil  surface.  Also,  systems  of  hyperbolic  equations  are 
easier  to  solve  than  elliptic  equations  and  the  above 
algorithm  is  unconditionally  stable. 

The  detailed  theory  is  beyond  the  scope  of  this 
thesis.  An  excellent  reference  for  theory  used  in  this 
code  is  AFWAL-TM-B4-191  (19),  prepared  by  Kinsey  and 
Barth.  The  purpose  of  using  a  grid  generator  is  to  produce 
a  body  conformal  grid  in  the  physical  domain  that  can  be 
related  to  a  uniform  rectangular  computational  domain  with 
grid  spacing  of  unity.  For  best  results  the  grid 
coordinates  should  be  orthogonal  (2-193). 

The  particular  grid  topology  used  in  this  study  was 
the  C-grid.  C-grids  require  less  points  than  many  other  type 
grids  (19:11)  and  therefore  require  less  computer 
resources  to  resolve  a  typical  problem.  C-grids  also  allow 
uniform  boundary  conditions  which  are  easy  to  implement. 
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However,  for  unsteady  flows  they  can  present  a  problem  in 
the  wake  region  of  the  airfoil.  Where  along  the  branch  cut 
all  variables  are  obtained  by  numerical  averaging  (see 


append i  >:  C)  . 

Convergence  Criteria 

There  are  three  types  of  converged  solutions  in 
numerical  simulations,  steady-state,  periodic  and 
unsteady.  Even  though  no  solution  is  perfectly  steady, 
there  is  always  some  oscillation,  the  unsteady  behavior 
may  be  so  small  as  not  to  affect  the  solution  visibly. 

When  this  is  the  case  the  solution  can  be  said  to  have 
reached  a  steady-state  (27).  The  steady-state  solution  1  => 
the  easiest  to  resolve.  It  is  characterized  by  the  uniform 
convergence  of  some  criteria  after  an  initial  transition 
region.  In  most  cases  local  time  can  be  used  with  a  CFL  = 
20  or  more  and  convergence  can  be  expected  in  less  than 
2,000  iterations.  Even  faster  convergence  can  be  achieved 
if  restart  solutions  are  used  where  the  restart  solutions 
represent  a  variation  in  parameters  such  as  Reynolds 
number  or  transition  point. 

The  criteria  for  convergence  for  this  report  were  the 
coefficients  of  lift  (C^ )  and  drag  (C^).  When  the 
variations  in  were  within  1-2  drag  counts  (1  drag  count 
=  0.0001)  and  the  amplitude  in  was  less  than  0.1  /.  then 


the  solution  was  considered  converged  to  a  steady  state 
(35:25) . 

The  periodic  solutions  can  be  characterized  by  an 
initial  unsteady  behavior  in  a  transition  region  followed 
by  periodic  oscillations  in  and  .  Local  time  can  not 
be  used  to  resolve  such  a  problem,  and  a  fixed  constant 
time  step  must  be  used.  The  oscillations  in  Cj  and  may 
have  more  than  one  harmonic  mode  on  an  overriding  wave 
(27).  If  one  harmonic  dominates  or  if  a  superposition 
period  can  be  found  then  convergence  is  determined  when 
the  change  in  the  maximum  value  of  and  over  one 
character i st i c  time  unit  is  less  than  one  percent  (7). 

A  character i stic  time  unit  is  non-di mensi onl ess  and 
represents  the  time  it  takes  a  particle  to  travel  the 
length  of  an  airfoil. 

t  =  t imn  N  (91) 

Where  tmin  is  the  smallest  constant  time  step  in  the 
computation  and  N  is  the  number  of  iterations.  Care  should 
be  taken  to  insure  that  at  least  four  periods  are  in  the 
analysis,  to  take  into  account  any  unsteady  trends  (7). 
Periodic  solutions  can  result  from  disturbances  in  the 
flow  field,  such  as  vortex  shedding,  large  separated 
regions  and  stall  characteristics  at  high  angles  of 
attack . 
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A  truly  unsteady  solution  is  characterized  by 
oscillations  which  are  not  periodic.  Such  a  solution  can 
not  be  resolved  and  o-ften  results  when  the  model  does  not 
represent  true  physical  behavior  such  as  laminar 
separation  at  a  turbulent  Reynolds  number  or  when 
numerical  instability  predominates  the  solution.  This  type 
of  behavior  can  not  be  resolved  except  as  a  -function  o-f 
time  and  depending  on  the  problem  might  not  represent 
physical  behavior. 
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IV  Results  and  Discussion 


In  this  chapter  the  numerical  results  obtained  -from 
the  Navi er-Stokes  code  previously  mentioned  are  presented. 
The  verification  of  both  the  code  and  grid  are  discussed 
and  the  final  results  for  a  "fan-in-wing"  are  presented. 
The  results  are  presented  through  the  comparison  of  lift 
and  drag  coefficients,  streamline  and  vorticity  contour 
plots  and  surface  pressure  and  skin  friction  profiles. 

Data  reduction  was  performed  with  two  codes  written  by  the 
author  and  included  in  appendices  J  and  K.  This 
investigation  concentrated  on  the  effect  of  mass  flux  on 
varying  suction  rates  Cv,  ejection  angles  6  and  angle  of 
attack  a. 

Code  and  Grid  Verification 


Before  the  fan  problem  could  be  resolved  it  was 
necessary  to  determine  a  compatible  grid  configuration  and 
to  insure  that  the  NS  code  was  predicting  the  flow  field 
accurately.  This  was  done  by  testing  the  various  grids 
listed  in  Table  1  under  known,  verifiable  conditions. 
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Table  1.  NACA  0012  Ortd  Configurations 


Grids  1,  5,  4  and  5  were  produced  using  the 
hyperbolic  generator  and  grid  2  was  produced  from  an 
elliptical  grid  generator.  Grid  4  and  5  are  unsymmetr 1  cal 
because  points  on  the  body  were  clustered  over  the  suction 
and  ejection  surfaces  which,  is  evident  in  Figure  11.  The 
number  of  points  in  the  >7  direction,  >7  ,  were  increased 

on  grid  4  to  allow  better  resolution  and  a  greater  cord 
distance  to  the  outer  boundary.  The  resolution  on  the 
airfoil  surface  was  improved  by  increasing  the  number  of 

points  in  the  £  direction,  £  .  At  the  leading  edge  the 

p*- 

spacing  is  0.003,  at  the  trailing  edge  it  is  0.005,  and 
over  the  injection  and  suction  surfaces  it  is  0.005.  The 
wall  spacing  on  4  was  refined  to  0.0001  in  order  to 
resolve  the  boundary  layer  better.  This  resolution  can  be 
seen  on  the  blown-up  portions  of  the  grid  in  Figure  12. 
Grid  5  was  produced  from  grid  4  by  using  two  codes 
(appendix  I)  to  redistribute  the  points  in  the  77  direction 
in  order  to  force  a  maximum  spacing  at  the  outer  boundary 
of  less  than  one  cord  length. 

All  of  the  grids  in  Table  1  were  tested  against 
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Figure  11.  Final  Grid  Configuration  for  a  NACA  0012  Airfoil 


Figure  12.  Final  Grid  Configuration,  Close-up 


separation  point  results  from  a  PNS  code  (13:5).  The 


results  are  compared  in  Table  2.  The  conditions  of  the 
test  were  laminar  flow  at  Re  =  12,500  and  M  =  0.3.  From 
Table  2  it  is  obvious  that  a  wall  spacing  of  0.001  is  too 
coarse.  The  other  grids  predict  reasonably  well.  Grid  2  has 
similar  spacing  to  the  grid  used  for  the  PNS  analysis  and 
for  this  reason  gave  the  best  results.  Grid  4  and  5,  with 
smaller  wall  spacing,  predicted  separation  early.  This  may 
be  due  to  better  numerical  resolution  of  the  boundary 
1 ayer . 


grid  separation 
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3  . 784 

4  .  787 

3  .  787 

ref  < 13 : 3  >  .  817 

Table  2.  Separation  Point  Comparison 

Cj  and  were  then  compared  at  an  extreme  case  for 
grid  4  and  5  (Table  3).  The  numerical  data  was  computed 
using  a  interactive  boundary  layer  code  (10:8).  Both  the 
experimental  data  and  the  numerical  solution  fixed 
the  transition  at  5  percent  cord.  For  this  case  Re  = 
6,000,000  and  M  =  0.3.  These  conditions  are  near  stall  (= 
14°),  presented  a  difficult  case  and  were  a  good  test  for 
the  code’s  turbulence  model. 


grid 

Cl 

Cd 

4 

1 . 08 

.  0129 

5 

1 . 07 

.  0124 

ref 

< io:8) 

.  S>5 

.  OOP2 

ref 

<1:4  <52  ) 

1.11 

.  011  1 

Lift 

and  Drag 

Comparison 

with  Experimental 

Data, 

a.  =  lO  , 

M  =  .  3,  Re 

=  0,000,  ooc 

The  Cj  results  in  Table  3  are  in  good  agreement  with  the 
experimental  data,  but  the  results  are  higher  than 
expected.  Considering  the  extreme  Re  and  the  high  angle  of 
attack,  this  comparison  still  indicates  that  the  code 
predicts  a  reasonable  solution.  The  next  case  compares 
surface  C^form  grid  5  with  experimental  data.  Figure  13. 
The  difference  in  Re  has  only  a  small  effect,  and 
are  compared  in  Table  4  for  transition  effects.  The  effect 
of  transition  is  more  pronounced  both  in  the  and  the 
Cj,  Cd  comparisons.  Though  not  in  perfect  agreement,  the 
NS  solution  predicts  -lightly  higher  values  for  C^,  the 
agreement  is  still  reasonable. 
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A  final  comparison  was  made  for  c^  and  c^  versus 
inviscid  theory  and  experimental  data  for  grid  5,  Table  5, 
and  transition  points.  The  transition  point  on  the 
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upper  surface  was  fixed  at  40  percent  of  the  cord  as 


measured  from  the  leading  edge,  which  is  5  grid  points 
behind  the  suction  region  of  the  fan. 


o  o  o 
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Table  5.  Cl  and  Cd  Comparison  with  Experimental  and 
Theoretical  Data 

< ex p  Re  =  3,000,000,  num  Re  =  1, 000,000) 


The  0^  and  C^.  surface  comparisons  are  presented  in 
Figures  14  and  15.  From  this  data  it  is  also  apparent  that 
the  transition  point  has  an  effect  on  the  solution.  The  C 

P 

curves  in  Figure  14  indicate  a  pressure  difference  around 
the  leading  edge.  This  pressure  difference  is  responsible 
for  the  lift  created  by  the  unsymmetrical  transition 
points.  The  C^.  plots  in  Figure  15  also  indicate  a  small 
change  due  to  transition.  These  differences  are  small  when 
compared  with  angle  of  attack  which  will  be  presented 
1 ater . 


Suction  and  Ejection  Separately 


The  first  step  taken  in  determining  the  effect  of  a 
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Figure  14.  Comparisons  of  Cp  for  Transition  Point  Effects 
CR©=1 ,000,000,  M=.  3 ,  a=0°D 
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fan  was  a  comparison  of  the  components,  suction  and 
ejection  separately  see  Table  6.  For  this  analysis 
ejection  was  set  at  6  =  90°  and  suction  velocity  Cv  = 


0.05.  As  with  the  solutions  above,  the  solution  for 


suction  reached  a  steady-state  condition  quickly;  however, 
blowing  converged  to  a  periodic  solution  which  is 
discussed  in  some  detail  in  the  following  section  on 
convergence.  Suction  has  the  effect  of  increasing  lift 
only  marginally  while  ejection  has  a  surprisingly  high 
effect  on  lift.  The  differences  can  be  clearly  seen  by 
comparing  the  curves  in  Figure  16.  The  drag  effects  are 
reversed.  Normal  ejection  has  almost  no  effect  on  drag 


while  suction  produced  an  astonishingly  high  skin  friction 
profile,  Figure  17,  which  results  in  a  large  viscous  drag 
component . 
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Table  0.  Cl  and  Cd  Comparison  for  Suction  and  Bloving  Only 
(Cv  =  .  05  ,  6  =  PO  > 


The  skin  friction  profile  of  suction  indicates  the 
effect  is  related  to  the  immediate  suction  surface. 
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Analysis  of  the  velocities  at  one  point  above  the  surface 
indicate  that  suction  creates  a  large  velocity  gradient 
above  the  surface,  see  Table  7  and  Figure  18.  This  result 
can  be  directly  linked  to  the  boundary  conditions  by 
considering  the  continuity  equation  at  the  suction  sur-face 
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7.  Velocity  and  Density  Comparison  at  the  Suction 
Surface  (Suet  ion  begins  at  x=.  12345) 


As  v  increases  suddenly  at  the  suction  sur-face  so 
must  u  along  the  surface  and  the  growth  is  very  fast  as 
indicated  by  Table  7.  The  velocity  of  u  before  the  suction 
indicates  that  it  is  in  the  boundary  layer  and  at  the 
point  above  suction  the  boundary  layer  is  removed  see 
Figure  18  and  u  >  1.  The  velocity  profile  quickly  reduces 
to  the  free  stream  value,  as  can  be  seen  in  Figure  19.  The 
effect  of  suction  is  confined  very  close  to  the  body  with 
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a  dimension  less  than  0.002  as  shown  in  Figure  18.  This 
large  surface  gradient  in  velocity  produces  vorticity  and 
thus  has  a  1 arge  effect  on  the  viscous  force  drag.  A 
better  model  of  suction  might  decrease  drag  but  should 
still  only  have  a  small  effect  on  lift. 

The  results  for  blowing  can  be  explained  in  this  way 
at  a  90  degrees  ejection  angle,  density  is  constant  along 
the  ejection  surface  and  there  is  no  v  component  to 
velocity;  therefore,  continuity  is  satisfied  if  du  =  0 
with  both  du/dx  and  dv/dy  =  O  the  skin  frict.on  is 
negligible  right  above  the  surface.  However  the  effect  of 
blowing  produces  vortices  immediately  behind  the  ejection 
surfaces  shown  in  Figure  19.  The  vortices  are  shed 
through  interaction  with  a  shear  layer  formed  by  blowing 
as  it  turns  the  free  stream  At  the  trailing  edge 
these  counter-clockwise  rotating  vortices  induce 
circulation  around  the  trailing  edge  which  leads  to  the 
formation  of  a  clockwise  rotating  vortex .  (5:  19£>) 

The  trailing  edge  vortex  is  more  powerful  than  the 
vortex  produced  by  ejection  as  shown  in  Figure  20.  This  i 
due  to  the  higher  energy  of  the  flow  on  the  upper  surface 
and  the  lower  energy  flow  between  the  shear  layer  and  the 
lower  surface.  These  vortices  are  shed  in  a  complex 
interaction  as  shown  graphically  by  the  streamline  and 


vorticity  plots  in  Figures  21  and  22.  As  the  vortices  shed 
they  produce  oscillations  in  lift  and  drag.  But  these 
oscillations  can  not  account  for  the  higher  mean  values 
seen  in  lift  due  to  blowing  only. 

An  analysis  of  the  surface  pressure  (Figure  16) 
reveal  that  the  primary  component  to  lift  (Table  6)  due 
to  blowing  is  the  pressure  difference  between  the  upper 
and  lower  surfaces  on  the  forward  portion  of  the  airfoil. 
The  primary  effect  of  the  vortex  shedding  is  confined  in 
the  airfoil  region  behind  the  ejecting  surface.  The 
difference  producing  lift  can  be  explained  by  the 
compression  effect  the  shear  layer  has  on  the  flow  by 
forcing  it  to  turn. 


Convergence  Criterion  for  Periodic  Solutions 


Before  an  analysis  could  be  performed,  each  case  had  to 
meet  a  convergence  test  as  discussed  in  chapter  three. 
Seventeen  cases  were  run  for  Re  =  1,000,000  and  M  =  0.3. 
Table  8  contains  information  on  each  case  and  pertinent 
information  including  the  "number"  by  which  they  will  be 
referred  to.  Of  the  seventeen  cases  listed  the  ten  with 
ejection  converged  periodically.  The  remaining  seven 
converged  to  a  steady-state  solution.  Whenever  possible, 
restarts  from  different  converged  solutions  were  used  to 
reduce  the  transition  period  and  thereby  the  number  of 
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Table  8. 

List 

Re  = 

of  Model 
1,000.000 

Configurations 

for  M 

=  .  3, 

iterations  needed  to  converge  to  the  new  solution. 


Plots  of  C,  and  C  .  for  each  case  can  be  found  in 
1  d 

Figures  23-33.  A  comparison  of  the  amplitude  and  slope  of 


convergence  provides  some  interesting  insight  into  the 


behavior  characteristics  of  different  Cv,  6  and  a.  The 


plots  indicate  that  as  the  suction  rate  increased  the 


amplitudes  in  and  decreased.  Increasing  6  and  a  had 
the  opposite  effect.  From  the  figures  it  appears,  in 


general ,  that  as  the  amplitudes  decreased  in  size  they 


increased  in  frequency.  Even  for  the  cases  of  Number  11 


(Figure  31)  and  number  5  (Figure  25)  which  may  look 


similar  to  steady  state  solutions  (Figure  23),  detailed 


analysis  shows  that  low  amplitude  and  high  frequency 


oscillations  are  present. 
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Figure  25. 


Force  Coefficients  vs  Iterations, 
C  Cv=.  01  ,  6=90°,  a=0°D 
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Figure  33.  Force  Coefficients  vs  Iterations.  Number  17 
CCv-,05.  6=45  .  <3  =  4°} 
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Upon  close  inspection,  small  harmonics  or  secondary 
waves  riding  on  the  dominant  wave  can  be  seen,  especially 
in  the  Cd  plots.  This  is  probably  due  to  the  interaction 
of  the  shedding  vortices  as  mentioned  above.  Except  at 
angle  of  attack,  these  harmonics  are  to  small  to  affect 
the  convergence  criterion  used.  At  angle  of  attack  the 
harmonics  are  more  pronounced.  For  Number  14,  Figure  32,  a 
set  of  four  distinct  oscillations  with  the  same  frequency 
formed  early  and  later  converged  to  a  single  oscillation. 
At  four  degrees,  Number  17  (Figure  33),  a  similar  quartet 
persisted  and  became  periodic.  This  is  true  for  both 
and  C^.  This  behavior  is  probably  due  to  a  more  complex 
interaction  of  the  shedding  vortexes  induced  by  the  angle 
of  attack.  A  Fourier  analysis  could  provide  more 
information  on  the  interactions  but  it  is  beyond  the  scope 
of  this  report. 

The  Effect  of  Varying  Suction  Rate 

In  this  study  three  different  suction,  Cv,  cases  were 
studied,  at  1"/.,  5‘/.  and  107.  of  free  stream  velocity.  For 
purpose  of  comparison  all  three  cases  were  run  at  an 
ejection  angle  of  90°.  The  ejection  velocities  were  almost 
twice  that  for  suction  as  a  result  of  a  2: 1  area  ratio. 

The  vs  Cv  plot,  Figure  34,  indicates  the  expected 
result  that  increasing  suction  velocities  and 
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Figure  34.  Force  Coefficients  vs  Suction  Velocity 
C  6=90  °  ,  a=o') 
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corresponding  increasing  ejection  velocities  produce  a 
near  linear  increase  in  lift.  The  surprising  results  in 
the  Cd  plot.  Figure  34,  suggests  that  there  is  a  maximum 
drag  produced  near  Cv  equal  5'/..  Cv  increasing  beyond  this 
critical  value  reduces  drag.  More  points  are  need  to  draw 
firm  conclusions  concerning  this  particular  behavior. 

The  normal  (90°)  blowing  produced  no  induced  drag  due 
to  mass  flux  at  the  ejection  surface  and  minimal  shear  drag 
on  the  suction  surface.  The  mass  flux  component  of  lift  is 
almost  negligible  due  to  the  small  values  of  Cv  as  is 
demonstrated  by  an  approx l mat i on  to  the  momentum  flux 

Lift  ^  m • V  j  =  — pA ( V ♦ Vj )  =  (pAv2),  -  (pAv2)  (92) 

lover  upper 

C,  =  — -  =  2L  ,  v  S  Cv  v  S  1 . 82Cv  (93) 

1  ,  ,2  lover  ,  upper 

p  V 
00  00 

For  Cv  =0.1,  p  =  1  and  A  =  0.25  and  0.125,  =  0.0012 

a  very  small  value. 

The  lift  and  drag  behavior  can  be  directly  related 

to  the  pressure  distribution  forward  of  the  fan  as  the 

lift  coefficients  in  r  :.b  1  e  9  and  the  C  surface 

P 

distribution  in  Figure  35  indicate. 

The  biggest  surprise  is  that  varying  the  suction  rate 
does  not  affect  the  pressure  distribution  on  the  lower 
surface  nearly  as  much  as  on  the  upper  surface.  Since  the 
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Table  0.  Cl  and  Cd  Component  CompariBon  vs  Suction  Velocity 


negative  pressure  coefficient  on  the  upper  surface  exerts 
a  force  normal  to  the  surface  and  the  greatest  changes 
near  the  leading  edge  where  the  surface  area  has  the 
largest  vertical  component  (y)  component.  This  trend  can 
be  verified.  The  following  equation  approximates  pressure 
drag  and  lift  (see  appendix  D) 


puft  =  E  F\dy 


p  s  r  R.dx 

drag  “  1 


(94) 


If  the  above  equations  are  applied  to  the  curves 


the  lift  coefficients  in  Table  9  can  be  obtained.  The 


mechanism  creating  these  pressure  differences  in  the  Cp 
curves  can  not  be  easily  explained.  On  the  other  hand  The 
viscous  drag  is  directly  related  to  the  suction  velocity  as 
is  evident  in  the  cf  surface  plots  of  Figure  36.  The 
larger  the  suction  the  greater  the  drag  over  the  suction 
region.  Here  again  it  is  the  pressure  distribution  which 
influences  the  total  drag. 

Some  mechanism  relating  the  ejection  velocity  to 
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pressure  distribution  must  account  -for  this;  but  it  is  not 
the  vortex  shedding.  Figure  37  compares  the  Dlots  -for 
different  points  in  the  lift  curve,  Figure  25,  for  Number 
6.  The  corresponding  streamlines  and  vorticity  contours 
were  discussed  earlier,  see  Figures  21  and  22.  A 
comparison  indicates  that  vertex  shedding  has  no 
discernible  effect  on  the  pressure  on  the  forward  section 
of  the  airfoil.  The  amplitudes  in  the  lift  curve  can  be 
accounted  for  in  the  region  near  the  trailing  edge.  The 
differences  near  the  trailing  edge  are  not  nearly  as  large 
as  at  the  leading  edge  and  the  mean  value  seems  to  be  near 
zero. 

The  streamline  and  vorticity  contours  demonstra  e  the 
period  of  the  oscillations  very  well.  The  streamlines  do 
not  depict  the  shear  layer  in  the  ejection  wake  but  do 
reveal  the  vortex  at  the  trailing  edge  and  the 
oscillations  in  the  airfoil  wake. 

The  vorticity  contours  reveal  the  shear  layer  by  many 
small  vortex  cells.  The  maximum  lift  corresponds  to  a  well 
formed  vortex  at  the  tail  and  the  location  of  the  wake  at 
a  minimum  point  below  the  cord.  As  the  vortex  breaks  down 
the  lift  drops  to  a  minimum  and  no  tail  vortex  is  present. 
As  the  vortex  reforms  the  lift  begins  to  climb  again  and 
the  wake  moves  to  a  maximum  point  above  the  cord.  The  drag 
behavior  is  similar  except  that  it  is  slightly  out  of 
phase,  but  with  the  same  period. 
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The  streamline  and  vorticity  comparison  in  Figure  38 
demonstrate  that  Number  9,  Cv  =  0.1,  has  the  strongest 
vortex  and  the  broadest  shear  layer.  Figure  38  also 
indicates  that  tor  Cv  =  0.01  that  there  is  no  trailing 
edge  vortex  and  a  very  thin  shear  layer.  It  is  evident 
that  the  greater  the  suction  velocity  the  greater  the 
disturbance  at  the  blowing  surface  which  creates  stronger 
ejection  vortices  and  a  wider  shear  layer.  This  broad 
shear  layer  may  acts  as  a  buffer  on  the  rear  body  and 
decrease  the  shedding  effects.  This  could  account  for  the 
decreasing  trend  in  amplitude  with  increasing  suction 
velocity  shown  in  the  and  C^  plots. 

The  Effect  of  Varying  Ejection  Anale 

For  this  portion  of  the  study,  suction  rates  of  5  and 
10  percent  were  compared  at  ejection  angles  of  90,  45  and 
15  degrees.  The  Cj  and  Cd  vs  6  curves  in  Figure  39  indicate 
different  behavior  for  the  two  suction  rates.  For  Cv  =  0.1 
the  trend  is  an  increase  in  both  lift  and  drag.  For 
Cv  =  0.05  the  trend  in  li-^t  is  reversed.  The  drag  can  be 
explained  by  examining  the  mass  flux  component  of  lift. 
Table  10.  At  any  ejection  angle  the  normal  component  of 
velocity  v  does  not  change;  it  must  satisfy  the  constant 
mass  flow  condition 
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m  =  m  =  pAV  (95) 

in  out  normal 


Where  A  is  the  surface  area  of  the  airfoil  and  does  not 
change  with  ejection  angle  and  V  is  equal  to  v; 

therefore  the  mass  flux  component  to  lift  does  not  change. 
Drag  behaves  differently.  The  velocity  u  is  equal  to 
v/tan(<5)  which  is  approximately  2CvCr/tan(6)  and  for  45 
approximately  1 . 8Cv  and  for  15  approximately  6.78Cv.  As  & 
goes  to  zero  u  would  go  to  infinity. 


Cd  = 


2  drag  =  -  2  m • V  i 


(96) 


The  approximate  calculations  are  listed  in  Table  11. 
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Table  11.  Cd  Calculations  for  Surface  Blowing 

(A  =  .125,  p  =  1.1  and  v  =  2  Cv/Cr?  Cr  =  1 .  1> 

This  explains  the  decrease  in  drag  vs  &  but  does  not 
account  for  the  lift  behavior. 

As  with  the  effect  of  varying  suction  velocities  the 
lift  comes  mostly  from  the  leading  edge  pressure 
differences.  The  influence  of  this  pressure  by  changing 
the  ejection  angle  can  not  be  determined  without  more 
data. 

The  streamline  and  vortex  plots  are  presented  in 
Figures  40  and  41  for  comparison.  The  vortex  patterns  at 
90°  are  discussed  above.  As  shown  in  Figures  40  and  41  the 
trend  at  45°  is  a  smaller  and  weaker  vortex  structures 
which  accounts  for  the  reduced  amplitude  in  the  and  Cd 
curves.  The  shear  layer  is  also  much  smaller  with  a  higher 
energy  imparted  by  the  u  component  of  the  ejection.  These 
two  reasons  account  for  the  smaller  frequencies  seen  in 
the  same  curves.  The  smaller  higher  energy  shear  1 ayer  is 
closer  to  the  body  and  prevents  the  build  up  of  a  strong 
trailing  edge  vortex.  The  smaller  trailing  edge  vortices 

o 

then  must  shed  at  a  quicker  rate  than  the  ones  at  90 
whcr®  time  was  required  for  them  to  build  in  strength. 
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At  15°  the  trend  is  even  more  pronounced.  For  Cv  =  0.1 
A  trailing  edge  vortex  was  prevented  -from  -forming  as  shown 
in  Figure  41. 

The  E-f-fect  of  varying  Angle  o-f  Attack 

The  most  interesting  results  were  obtained  by 
varying  the  angle  o-f  attack.  The  and  vs  a  curves 
are  given  by  Figure  42.  The  lift  curve  shows  the 
expected  behavior.  A  delta  above  that  of  a  clean 
airfoil  and  constant  with  respect  to  o.  Here  again  the 
major  contributor  to  lift  is  the  pressure  distribution 
around  the  leading  edge,  see  Figure  43  and  Table  12.  The 
drag  curve  behavior  is  unexpected.  The  trend  for 
increasing  a  is  a  decrease  in  drag  almost  to  the  level  of 
a  clean  airfoil.  This  behavior  is  unusual  and  cannot  be 
explained  by  thrust  due  to  mass  flux.  As  a  goes  up  the 
thrust  component  actually  goes  down  because  the  direction 
is  increasing  the  ejection  angle  by  cx.  This  is  in 
agreement  with  the  data  in  Table  12.  Also  from  this 
figure  the  viscous  components  of  drag  are  nearly  constant; 
it  is  the  contribution  of  pressure  drag  that  is  exhibiting 
the  unusual  behavior.  At  4°  angle  of  attack  the 
pressure  drag  is  acting  as  a  thrust  component.  The 
mechanism  causing  this  behavior  is  not  known.  The  vs 
curve,  Figure  44  is  instructive.  The  fan  curve  retains  the 
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Figure  42.  Force  Coefficients  vs  Angle  of  Attack 
CCv=.  05.  6=45 
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vs  CX 

general  shape  of  the  clean  airfoil  but  is  rotated  and 
shitted  up.  The  lift  and  drag  oscillations  contain 
strong  harmonics  as  discussed  above  (Figures  32  and  33). 

At  four  degrees  this  is  especially  pronounced.  As  shown  in 
Figure  45  the  vortex  pattern  of  shedding  seems  to  be  only 
mildly  affected  by  the  normal  component  of  the  free  stream 
velocity,  and  the  thickness  of  the  shear  1 ayer  above  the 
surface  is  reduced  by  a  small  amount  with  increasing  angle 
of  attack.  The  streamlines  in  Figure  45  indicate  the  stagnation 
point  at  the  leading  edge  is  also  affected  by  a  small 


amount . 


V  Conclusions  and  Recommendations 

The  solutions  obtained  using  the  implicit 
compressible  Navi  er-Stokes  equations  compared  -favorably 
with  both  experimental  and  other  numerical  results.  For 
lack  of  verifying  data  such  comparisons  could  not  be  made 
with  solutions  obtained  from  the  model  with  mass  flux. 
However,  based  on  the  codes  performance  the  solutions 
should  give  a  fair  appr ox  1  mat 1  on  to  the  physical  problem. 

The  results  indicate  that  a  fan  type  device  imbedded 
in  an  airfoil  can  produce  favorable  aerodynamic  effects, 
improved  lift  performance  with  minor  drag  penalties.  The 
best  lift  performance  was  achieved  at  an  angle  of  attack 
of  four  degrees.  The  best  drag  performance  was  achieved 
with  ejection  angles  of  15  degrees  where  thrust  was 
produced . 

Eiecause  the  model  only  represented  one  possible 
conf 1 gurat 1  on  out  of  a  multitude  the  results  simply 
indicate  trends  in  the  "fan-in-wing”  behavior.  Many  more 
tests  both  experimental  and  numerical  are  needed  before 
firm  conclusions  can  be  drawn.  At  best  the  fan-like  device 
tested  indicates  interesting  and  unusual  behavior  with 
possible  applications  to  V/STOL  technology. 

Experimental  tests  should  be  performed  to  confirm 
this  behavior.  Emphasis  should  be  given  to  high  angles  of 
attack  in  order  to  determine  the  maximum  and  the 
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airfoil  stall  effects  for  a  fan-like  device. 
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Appendix  A:  Non-Dimensional  Variables  (2:191-193) 


The  variables  used  in  the  Navier-Stokes  equations 

can  be  written  in  a  non-dimensional  form  by  dividing  by  L 

as  the  lenqth  scale,  the  tree  stream  velocity  U  as  the 

ao 

velocity  scale  and  p  as  the  mass  scale.  All  other  units 

oo 

can  be  expressed  in  terms  of  the  three  scalar  factors, 
except  viscosity  and  heat.  The  non-dimensional  relationship 
are  as  follows  (an  %  represents  a  non-dimensional  quantity) 


* 

y  = 


y_ 

L 


* 

u  = 


U_ 

u 


V  = 


co 


V 

cr 


00 


T*-  f- 

00 


m 

p  = 


_  P 


P*  = 


00 


p  u2 

00  CO 


e  = 


U 


oo 


Et 


Et 


p  u2 

00  00 


-I  p  = 


00 


*  £ 

£  =  — 
P 


♦ 

q  = 


00 


00 


tu 

_  00 
V-  l 


*  L 

l  =  _  =  1 

L 


(A—  1  ) 


and  the  non-dimensional  Reynolds  number  is  defined  as 


R© 


p  U  L 
00  00 


p 


00 


( A-2 ) 
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The  temperature,  pressure,  and  energy  equations  can 
be  expressed  in  terms  or  the  Mach  number 


M  — 

00  CL 


( A-3) 


where  a  is  the  local  speed  ot  sound 


cl  ~  y  yRT 
oo  oo 


(A— 4) 


pressure  can  be  written  using  the  equation  ot  state 


P  =  pRT 


(A-5) 


* 

P  = 


* 

T  = 


Et*  = 


p 

p 

p 

P  Uz 
00  00 

p  Uz  /RT 

00  00  00 

2 

a 

00 

p  rn2 

00  00 

and 

energy 

can  be  modified  in  the 

T 

P 

PR 

II 

4 

*  2 
p  rn2 
_  00 

T 

00 

P 

00 

pR 

CO 

P  P 
^  00 

* 

P 

Et 

Et 

p  u2 
00  00 

p  r m2 

00  00 

(A-6) 


(A— 7) 


(A— 8) 


94 


* 

0 


E_t_ 

P 

U 


Et _ 

pyRT  M2 
00  00 


Et 
PT  P 
P 


M 

00  00 


00 


Ei 


* 


P 


(A— 9) 


An  example  of  how  the  NS  equations  are 
non-di mensi onal i z ed  is  demonstrated  on  the  continuity 
equation  below 


*  m  *  *  * 

Op  +  0(p  u  )  +  0(p  v  > 

Ot  Ox  Oy 


(A— 10) 


a 


i 


) 


3  f  PcoU  oo 

l  L 


) 


0  ( A— 1 1 ) 


The  constants  can  come  out  of  the  derivatives  and  divide 
through  leaving 


dp  +  <?<pu)  +  <?<pv)  _  0  < A— 12) 

Ot  O'/,  Oy 

In  the  momentum  and  energy  equations  the  constants  do 
not  divide  out.  They  form  the  Reynolds  number  presented 
above. 
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Appendix  B:  Jacodian  Matrices  -for  the  Navier-Stokes 

Equations  <35:45-46) 

The  Jacobian  matrices  presented  in  equations  (72-73)  are 

defined  below.  They  are  obtained  by  di f f erenti ati ng  the 

vectors  E  ,  E  ,  V  and  W  defined  in  equations  (49-52) 

12  1  2 

(B-l) 

f  i 


o 

y 

0 

A  = 

K  <P  - 

X 

UK 

n  -  (y~2 ) £  u 

X 

?  u  -  <r-l)? 

y  : 

v  (7— 1)£ 

<  X 

l  4>  ~ 
y 

vu 

£  v  -  (y- 1)?  u 

X  y 

11  —  (^-2)^  ' 
y 

✓  (y-l)f 

y 

C24>  ~ 

ye )  u. 

( ye~4>)  %  —  ( y—  l )  un 

X 

( ye~4>)  ?  -<j'- 

-l)vn  7^11 

(B-2) 

* 

o 

V 

y 

0 

B  = 

rj  4>  ~ 

X 

UK 

v  -  <y— 2)  77  u 

X 

77  u  -  (y-l)r/ 
y  x 

v  ( y- 1 )  77 

X 

T)  4>  ~ 
y 

V  V 

77  v  -  (y—  1 )  77  u 
x  y 

k  —  ( y—2)  77  v 
y 

<r-i  >  >? 

y 

C24  - 

ye)  v 

(ye~4>)  77  -(y- Duo 

X 

( ye~4> )  77^-  (y- 

1 )  v  u  yv 

where 


4>  =  1/2  iy-i)  <uZ  +  v2)  (B-3) 


and  the  Jacobian  Matrix  M  and  N  are  defined  by 
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i  a 


( B-4 ) 


M  =  - 
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(b  u  +  b  v) 
1  2 


-<bu+bv)  b  b  0 

2  3  2  3 

-<bZ  +  2b  uv  +bv2>  b  -b  j'tj'-Du  bu+b  b  yiy—1) 
1  2  3  1  4  234 

+b  y  (y- 1)  (u2+v2-e>  +b  v  -b  y(y-  1) 

4  2  4 
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1  2 


~(d  u  +  d  v) 

2  3 
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1  2  3  1  4  2  3 

-*-d  y(y—l) (u2+v2-e)  +d  v  — d  y(y— 1) 
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Appendix  C:  Boundary  and  Initial  Conditions 


Boundary  Conditions  Without  BIowi no ■ (55: 10; 1 1 ) 


The  boundary  conditions  on  the  C-grid  and  on  the 
air-foil  surface  must  be  completely  specified.  In  the  code 
used  the  boundary  conditions  are  explicit  as  opposed  to 
implicit.  This  makes  it  easier  to  define  and  alter  the 
conditions;  but,  requires  a  separate  routine  to 
reinitialize  the  conditions  after  each  iteration. 
Referring  to  the  airfoil  computational  domain  shown  in 
Figure  10,  the  following  boundary  conditions  are 
prescri bed. 

Free  stream  conditions  are  given  in  non-dimensional 
form  for  all  the  flow  variables  along  the  outer  boundary 
ABC. 


P  = 


P  = 
co 


oo 


p  = 


p  =  1 

00 


c  — 


c  =  0 
00 


(C-l) 


u  = 


U  cos<ct) 
00 


V  = 


U  sin(a) 
00 


U  =  1 

00 


(C— 2) 


This  is  the  only  way  in  which  angle  of  attack  enters 
the  problem  and  as  such  requires  that  restart  solutions 
must  be  at  the  same  angle  of  attack.  Also,  pressure  P  is 
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uniquely  de-fined  by  Mach  Number  and  requires  all  restart 
solutions  to  share  the  same  Mach  number. 

On  the  downstream  or  far  field  boundaries  AD  and  HC 
the  flow  variables  are  computed  by  the  following 
relationships 


P  =  P 

oo 


d 

dz 


f  p 


£ 

u 


=  i ) 


<C-1  ) 


( C-3 ) 


This  allows  for  compressible  non-uniform  flow  at  the 
boundary  and  loss  in  momentum  due  to  skin  friction  at  the 
airfoil  surface. 

Along  the  airfoil  surface  EFG,  the  no-slip  adiabatic 
conditions  are  assumed 

u  =  v  =  0  (C— 4) 

and  the  gradient  of  pressure  and  temperature  normal  to  the 
surface  is  assumed  to  be  zero,  where  surface  density  is  a 
function  of  surface  pressure  and  temperature. 

=  0  ,  p  =  p<P,T>  (C-5) 

Finally,  through  the  Wake  cut  ED  and  EH  continuity  is 
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assured  by 
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Figure  46.  Boundary  Conditions 


where  the  magnitude  V  is  a  constant  equal  to  some  traction 

su 

of  the  free  stream  velocity 

V  =  CvU  =  Cv  ,  Ll  =1  <C-10> 

a  u  00  '00 

In  order  to  prescribe  conditions  on  the  lower  blowing 
surface  (bl)  the  mass  flow  m  must  be  determined  and  is  done 
in  the  following  manner  (12) 

m  =  m  =  m  =  pAV  (C-ll) 

s  a  b  l 

where  A  is  the  area  of  the  opening  and  V  is  the  velocity 
magnitude  normal  to  the  surface.  On  the  upper  surface  p  is 
averaged  and  changes  with  each  iteration,  A  is  assumed  to 
be  delta  X  and  for  this  analysis  was  picked  to  be  0.25  or 
25  percent  of  the  airfoil  cord  and  V  is  a  known  constant 
Cv.  On  the  lower  surface  P  is  determined  as  above  and  p  is 
fixed  and  assumed  to  be  compressed  by  the  action  of  the 
fan  and  is  how  work  done  by  the  fan  is  introduced  into  the 
model  (11:4-5) 

de  =  dq  -  Pd(l/p>  =  Pd (1/p)  (C-12) 

for  no  heat  transfer,  dq  =  0 


Pbl  =  Cr  avg  (p> 


(C-13) 


where  Cr  is  a  constant  and  equal  to  1.1  -for  this  analysis. 

Using  the  above  relationships  the  magnitude  o-f  the 

normal  velocity  on  the  lower  surface,  V  can  be 

bl 

determined.  It  vanes  are  assumed  on  the  lower  surface  and 

A  is  assumed  to  be  equal  to  dx .  where  dx  is  picked  to  be 

bl 

0.125  for  this  analysis,  then  the  boundary  conditions 
simplify  to  the  following  equations 

p  CrA  V  =  p  A  Cv  (C— 14) 

avg  bl  bl  g^g  su 


V  =  -V  =  C--r,Cv  ,  u  =  V  tan  <<5>  (C-15) 

b  l  Ur  b  l 

A 

Ca  =  —  (C— 16) 


where  <5  i  s  the  angle  of  the  vane  with  respect  to  the 
airfoil  cord  and  is  equal  to  90  degrees  for  blowing  normal 
to  the  lower  surface  area  A  . 

bl 


Initial  Conditions 
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For  this  code  the  -first  run  made  -for  a  particular 
angle  of  a  attack  and  Mach  Number  assumes  a  Uniform  flow 
field,  where  the  non-dimensional  flow  variables  are  given 
by  the  following  rel at  1 onshi ps 


P 


F' 

oo 


p  *  poo  =  1 


(C-l ) 


u  =  U  cos ( a)  ,  v  =  U  sin (a)  ,  U  =1  (C— 2) 

CO  00  00 

An  initial  run  of  one  hundred  iterations  with 
turbulence  turned  off  is  made  in  order  to  develop  the  flow 
and  a  solution  or  restart  file  is  saved.  Additional  runs 
can  then  be  made  using  the  restart  file  as  long  as  the 
angle  of  attack,  Mach  Number  and  grid  are  not  changed. 

The  variables  which  can  be  manipulated  include  the 
transition  points,  Reynolds  Number,  Cv,  Cr,  6  and  the 
damping  coefficients.  A  considerable  number  of  iterations 
can  be  saved  by  using  a  near  convergent  solution  as  a 
restart  for  a  new  problem  within  the  above  Constraints. 
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Appendix  D:  Derivation  of  the  Force  Cae-f-f  lcients 


Cl  and  Cd 

The  Calculation  of  lift  and  drag  on  an  airfoil 
surface  with  non-zero  surface  velocity  and  mass  flux  can 
be  accomplished  through  a  special  application  of  the  NS 
equations.  Starting  with  the  linear  momentum  equation  in 
integral  form. (41:) 

=  JJ/<  *  *-2  )d«  '0-1  > 

By  assuming  a  constant  control  volume  with  respect  to 
time  and  applying  the  material  derivative  equation.  The 
above  equation  the  reduces  to  the  following  form. 

JXf  =  JJJ  (  ~(PV‘V)V  +  ?b+  V*g  )  dv  (D— 2) 

ns  [9^-\ )- 

=  (  -  ( pW  )  •  n  +  g‘n  )ds 


Where  ds  represents  a  spatial  increment  on  the 
airfoil  surface.  In  2-d  cartesian  coordinates  the 
components  reduce  to  (42) 
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A 

n 


( D— 4 ) 


V  +  V 

ds 

V  =  ui  vj  (D-5) 

ns  aW- ^  -  jit  ^ }«"  -  °  <■>-*> 

pW*n  =  p(ui  +  vj)  f  Uyjf  +  Va^  1 

^  ds  J 

o'* n  =  f  Py.  -  t  y-  +  r  ;<„  1  i 

+  f— Px  +  T  x  _  —  r  yK  1  j 

l  ?  yy  £  yx  ?  J 

for  velocity  and  density  on  the  airfoil  boundary 
equal  to  either  a  constant  value  or  zero. 

JIT  d-  =  ^  "  V  *  FbS  (D-9) 

=  -Fx  -  Fy 

Putting  it  all  together  and  summing  over  the  airfoil 
surface  JJ (  Ids  =  Z  ds  the  equations  reduce  to 


(D-7) 


(D— 8) 
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(D-10) 


L  (~p>: 


_  +  r  x,  -  r  y 
K  yy  K  yx  Z 


Fy  =  '  [pv 


<D-11) 


r  f-Px  _  +  r  x^ 
u  L  ?  yy  < 


t  y* 

yx  < 


and  by  using  Stokes  approximation  X  -  -2/3^  the 
non-dimensional  shear  stress  terms  become 


1  f  4  gu  2  i 
R®M  [  3  dx  3  ay  J 


(D— 12) 


L  r  4  av  2  au 
R®^  [  3  ay  3  ax 


( D— 13) 


=  i  „  r  +  £51  ] 

r®^  [  ay  ax  J 


(D— 14) 


Lift  and  drag  can  be  related  to  the  body  forces  and 
the  angle  attack  by  the  following  relationships 


Lift  =  -Fx  sin(a)  +  Fy  cos(a) 


(D-15) 


Drag  =  Fx  cos(ot)  +  Fy  sin<a) 


<D-16) 


and  the  coefficients  are 
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Cl  = 


Lift 

1  i  i2 

-  p  U 

2  00  00 


cd  =  Drag_ 


<  D- 17) 


1  1 12 
—  p  U 
2  00  00 


and  for  non-dimensional  variables  p  =  U  =1  and 

00  00 


equation  (D-17)  reduces  to 


Cl  =  2  Lift  ,  Cd  =  2  Drag 


(D-18) 
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Appendix  E:  Computer  Resource  Requirements 


The  model  simulations  were  accomplished  by  using  the 
NS  code  as  discussed  in  section  III  and  in  appendix  F.  The 
code  was  run  on  the  Cray  XMP  computer  located  at 
Wr i ght-Patterson  Air  Force  Base.  Table  13  compares  the 
memory  and  CPU  requirements  for  the  original  and  modified 
codes. 


Orid 


Varsion 

IL 

JL 

Memory 

CPU/lOO 

Unmodif  led 

1PP 

50 

780, 800 

31 . 157 

Modf led 

1PP 

50 

<511 , 328 

2  P  .  PP1 

Modlf  led 

2PP 

lOO 

1  ,  3P7 , 7<SO 

71 . 202 

Table  13.  Computer  Resource  Comparieons 


The  memory  modifications  to  the  code  reduced  the 
memory  requirements  by  27.7  percent  and  the  CPU 
requirements  by  4.1  percent.  The  memory  improvements  were 
necessary  in  order  to  decrease  turn  around  time  for  the 
larger  grid  used  in  the  analysis.  The  maximum  available 
core  memory  on  the  Cray  is  1,860,000  words.  The  unmodified 
code  memory  requirements  for  the  larger  grid  would  have 
been  close  to  this  value.  The  main  reason  the  improvement 
was  needed  is  based  on  how  the  priority  system  on  the  Cray 
works.  Each  Job  with  the  same  priority  is  rotated  in  the 
queue  and,  if  memory  is  available,  is  allowed  to  run  for  a 
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set  number  o-f  CPUs.  If  no  memory  is  available,  then  the 
job  is  passed  over.  This  pattern  continues  until  the  job 
is  completed. 

For  jobs  requiring  a  lot  of  memory  (  50V.  core),  the 
availability  of  memory  goes  down.  Jobs  with  higher 
priority  maintain  thoir  memory  and  it  is  not  available  for 
jobs  of  a  lower  priority.  However,  lower  priority  jobs 
requiring  less  memory  than  that  being  used  by  the  higher 
priority  jobs  can  run.  For  this  reason,  the  turn  around 
time  for  a  job  with  the  larger  grid  at  regular  day 
priority  was  approximately  1.4  minutes  per  100  iterations, 
while  at  an  overnight  priority  it  was  between  1  hour  and  3 
days. 


110 


Appendix  F:  Navier-Stokes,  Fortran  Listing  (36) 


The  attached  -fortran  listing  is  the  modi  tied  version 
ot  the  code  used  in  this  work. The  original  code  was 
supplied  by  the  Air  Force  Wright  Aerodynamics  Laboratories, 
Flight  Dynamics  Laboratory,  Computational  Fluid  Dynamics 
Group.  The  Code  was  developed  by  Dr.  Miguel  Visbal.  It 
uses  the  Beam-Warming  approximate  tactorization  algorithm 
to  solve  the  two-dimensional ,  mass-averaged ,  compressible 
Navi er-Stokes  equations  tor  viscous,  unsteady  flows. 

Modifications,  made  by  the  author,  for  this  study 
involved  the  boundary  conditions  for  the  fan,  the 
turbulence  model  for  blowing  effects,  the  force  and 
residual  calculations,  input/output  and  loop  structure  to 
reduce  memory  requirements  (see  appendix  E) .  The  Code  was 
run  on  the  Cray  XMP  Computer. 


1 1  1 


C  VECTORIZED  NAVI ER-STOKES  COOE  -  BEAM— MARMI NG  ALGORITHM 

C  CONFIGURATION  :  AIRFOU  .  C-GRID;  AUG.  I*B5 

C  BY  MIGUEL  R.  VISBAl 

C  PROGRAM  MODIFIED  TO  INCLUDE  INJECTION  AND  EJECTION  ON  THE  AIRFOIL 
C  SURFACE.  THIS  ALLQHED  SIMULATION  OF  A  FAN  IN  THE  MING  CONCEPT.  CHANGES 
C  MERE  MADE  IN  THE  SUBROUTINE  BNDRY .  THESE  CHANGES  MERE  MADE  BY 
C  CAPT  PAUL  D  BOYLES  IN  SUPPORT  OF  AN  AFIT  THESIS.  AUG  1«8 


C  . .  IMPORTANT  «»»«■-.■  nww.i 

C  BEFORE  USING  THIS  PROGRAM  : 

I  C  MOOIFY  DIMENSION  STATEMENTS 
C  CHECK  BOUNOARY  CONDITIONS  SUBROUTINE 
C  CHECK  INPUT  DATA 


C  THIS  PROGRAM  SOLVES  THE  COMPRESSIBLE  NAVIER-STOKES  EQUATIONS 
C  IN  ARBITRARY  TMO-OIHENSIONAL  DOMAINS  USING  BODY-FITTED  (TIME- 
C  INVARIANT)  CURVILINEAR  COORDINATES  AND  THE  IMPLICIT  FACTORED 

C  SCHEME  OF  BEAM  A  HARMING,  . . 

C  TIME  DIFFERENCING  :  EULER  IMPLICIT 

C  SPATIAL  DIFFERENCING  :  SECOND  ORDER  CENTERED  DIFFERENCES 
C  IN  THIS  PROGRAM  THE  SPACE  INCREMENTS  OF  THE  TRANSFORMED 
C  VARIABLES  XI  AND  ETA  ARE  BOTH  ASSUHED  EQUAL  TO  ONE  l  I.E., 

|  C  DEL \ XI )-OEL(£7Ai-i.O;. 


PARAMETER  ( IN-2H .  JM-lOO  ) 

COMMON  /FLOMV/  U( IM.JM) ,V{ IM.JM) ,P( IM.JM) .RHO( IM.JM). 
IXMU* IM, JM ) , EDDY ( IM.JM) 

coma*  /GRID/  X(IM.JMl,Y(lM,JM),XXI(IM.JM),YXl(IM,JM), 
IXETAI  IM,  JH  l  .YET  At  IM .  JM  >,  XJAC  ( IM.JM  )  .  S<  IM.  JM  > ,  SSK  IM) 
COMMON  /MATRIX/  A( IM.JM, 4. A )  ,RHS( IM, JM, A ) 

COMMON  /PI/  Il.JL.ni.ltEi.ltEU 

COMMON  /P2 /  CaH.PR.PRT.XM1.RE.TM, SI. ALFA. ANGLE 

COMKON/MI SC/1L 1. IL2, IL3, JLl, JL2. JL3.1LEP1. ILEM1 , 

-  ITELP1.ITELM1, ITEUP1, 1TEUH1,GAH1,GaM2.GAM1I .CXM.S1P, 

-  pirf.sina.cosa.prj.pRti.rej.xl.xu.xlm.pi 

COMMON /tXJMMY/  TEMP ( IM, JM , * ) 

COMMON 'T IMEM/  DUU( IM. JM  .CFL.OTMI N.DTMAX . BETA.DTVI S 

COMMON/DAMP/  ME.HI .HPE.HPI.1SPECT 

COMMON/ T UR61/I T  RSU . ITRSL , IKK ST , IHKE, JLAST , 

XRELAX 

COMMON /TURB2/XMUT I ( JM ; .XKUTOt JM) ,Dl JM) ,H( 2« JM) , F (2* JM ) . 
GAMMA < IH) 

C3HM0*/S?rCTR/  SPECT ( IH, JM) .PSMUl IM.JM) 

COMMON /NORM/  UNORM. VNOAM 

COMMON/BND/  NBHO.XMREF  .TREF.TINF.CY.CR.CT  .DEL.H.L2.L3.LA 


READ  (5.520!  HP£ 

READ  (5.520)  HP  I 
READ  (5.520)  EDST 
READ  (5.510  I  UMAX 
READ  (5.510’  NCONV 
IF  RESTART  THEN  IRES7ART 
READ  <5,51 0)  IREST 
I PLOT  -  1  TURNS  PRINT  ROUTINES  OH  FOR  DEBUGGING 
READi5.5101  I PLOT 
READ15.510 1  I PL 071 


*  1  ELSE  -  0 


f AN  INFORMATION 

READ' 5 . 510 ' 
READ(5.520: 
READ! 5 . 520  5 
READ'5.520, 
READ(5.520 
READ. 5, 520)  DEL 
REAOI 5.510!  LI 
READ! 5 .510 l  L2 
READ( 5.5101  L3 
READI5.510)  L4 


NBNr 

XHREF 
CV 
CR 
CT 


CONSTANTS  for  air 


GAM-1.40 

PR-0.720 

PRT-O.90 

PRES  •  1.  /  t  6AM»XM1»XM1  ) 
RMO  -  1 
TINF  -  1 

TREF  -  XM1*XH1/!X«EF«XMREFJ 
I  CHECK  -  0 


INITIALIZATION 


CALL  INITIA 


UINF  -  COS (ANGLE) 
VINE  -  SlN(ANGLE) 


PRINT  OUT  THE  INPUT  DATA 


MRITE  ( 6 ,* 1 *C ’ 

WRITE  (A.*!'C' 

HRITE  ( 6 , 202 
WRITE  (4.203) 

MRITE  (6.204)  1L.JL.ILE.ITEL.ITEU 
WRITE  (6,205)  NOT AU. CFL . BETA ,DT VIS 
WRITE  (4.206)  XH1 . RE  SI. AL FA 
WRITE  (4.213)  ITRSU, ITRsl . IWKST, IMKE , 
JLAST.XRELAX 

WRITE  (6.214,  NTURS.fFREO 
MRITE  14.208.  ME , MI . MPE . HP1 . ISPECT 
MRITE  ( 6 ,•  /  '  RESTART  (Y/N.  1/0)  ->  ' , IREST 
MRITE  ( 6 , •  ! '  ' 

IF  (  NBND  .EO.  2  )  THEN 
MRITE ( 6 .•  i  SUCTION  ONLY 


)  THEN 

BLOWING  ONLY 


END  IF 

IF  (  NBND  .EO. 

MR I T  E ( 6 , •  )  ” 

END  IF 

IF  (  NBND  .EO. 

MR I T  E ( 6 .  •  )  ” 

GOTO  111 
ENO  IF 

HRITE  (4,*  )  *  FAN  INFORMATION 

HRITE  (4.209)  11, L2. L3.L4.DEL 
WRITE  (4,210/  CV.CR.CT 
WRITE  (6.215)  XMREF.XM1. TREF, TINF 


)  THEN 

FAN  IS  TURNED  OFF 


INPUT  RESTART  SOLUTION  (I.E.  X,Y,U,V,P.RHQ. EDDY  ) 


111 


REMIND  1 
DO  281  J-l.JL 
DO  2B1  J-l.JL 
IF  (  IREST  .EO.  0  1  GOTO  382 
READ  (1.1000)  Xn.JJ.Yd.JMJU.JKVd.J), 
Pd.J).RHOd.J)  .EOOYd.J, 

GOTO  281 

382  READd.  1001  >  Xd.J’.Y(I.J) 

Pd.Ji  -  PRES 
RHOII.J)  •  1.0 
U(I.J)  -  UINF 
VII. J)  -  VINF 
EDOYll.J)  -  0.0 

.  IF  I  J  .LE.  JLAST  )  EDOYd,  J )  -  EDST 
281  CONTINUE 

1000  FORMAT  (lX.TEH.l) 

1001  FORMAT  (2ElS.fi  ) 


COMPUTE  TRANSFORMATION  METRICS 


CALL  METRIC 


INITIALIZE  SPECTRAL  RADIUS  SPECTd.J) 
DO  282  J-l.JL 
DO  282  1-1 . IL 
SPECTd . J)-XJAC(I,Ji 
28 2  CONTINUE 


COMPUTE  TIME  STEP  (DTAU . 


CALCULATE  MOLECULAR  VISCOSITY  XMU(I.J) 
CALL  CXMUdCMEOU 
CALL  TMSTEP 

mi  IE  (6, 211)  DTNIN,  OTMAX 


PREPARE  FOR  FIRST  ITERATION 


608  NSTEP-NSTEPI 
JMPEX-Q 


C  COMPOTE  TURBULENCE  TRANSITION  FACTOR  GAMMA! J) 
CALL  TftANSl 


ADVANCE  TIME  STEP 


IOC  «STEP*#STEP+1 
lNDEX-INDEX+1 
I  CONV«  I  CON  V-*- 1 

I F ( I CONV . EO . NCQNV  )  ISMTCH-1 

IOT-IDT-1 

tau-taln-dtmin 

ITURB-ITURB+l 

IF  < INDEX. CT. INMAX  I  GO  TO  200 

COMPUTE  NEW  DTAU  IF  DESIRED 
IF  UDT.LT.MOTAU)  CO  TO  400 
IDT-0 

CALL  TMSTEP 

MRITE ( 6,212  )  NSTEP.DTHIN.DTMAX 
400  CONTINUE 


UPOATE  VARIABLES  AT  INTERIOR  POINTS 


CALI  CONVRT 

DO  25  K-1.4 
DO  25  J-2.JL1 
00  25  J-2.IL1 

T  EMP ( I , J . K  > "T  EMP ( I , J , K ) ♦RMS ( 1 , J , K ) 
25  CONTINUE 


CALL  UCOWYRT 


IMPLEMENT  BOUNDARY  CONDITIONS 


CALL  CXMUUCHEOC) 

IF  I  I CHECK  .£0.  1  )  GOTO  200 


TURBULENT  EDDY  VISCOSITY 


IF  ( ITRSU.GT . I L )  GO  TO  256 
IF  ( INDEX. LT.NTURBi  CO  TO  256 
IF  { ITURB.LT . JFREO)  GO  TO  256 


IF  (INDEX. CO. INMAX)  I PLOT -1 
IF  (INDEX. EO. INMAX ’  1P10T1-1 
CALL  TURB  < I  PLOT . IPLOT 1 i 


254  CONTINUE 


CONVERGENCE  CRITERIA 


IF  UCONV.LT. NCOHV I  GO  TO  100 
JCONV*) 


CALL  MONITR  ( NSTEP. TAU.ORKAX . RMSDR ) 


SAVE  CURRENT  SOLUTION. 


•TIMFm  \F».3./> 

210  FORMAT  (2X. 'COEFECIENTS  :  CV*  ’ .F8.2.5X. *CR«  '.F8.2.5X, 
'CT-' . F8.2./i 

2M  FORMAT l 2X, ’FAN  PARAMETERS  :  L1-M5.2X. 

-  '  L2«  ‘ . 15 . 2X, *L3- ' . 15 .2X. ' LA* ' . I5.2X . 'DEL-' .  F8.2.2X./; 

212  FORMAT  ilOX, 'TIME  STEP*' ,15, 5X.  'DTHIN* ' , EL2.5.5X. 

'DTKa*-',EU.5./> 

213  FORMAT ( 2X. *  TOR BULENCE  PARAMETERS  :  TTRSU-*  I5.2X , 

-  * ITRSL- ' . I5.2X,  ' INKST-' , I5.2X, ' IWCE* ' , 15 ,2X, 1 JLAST-* , 15 ,2X 

-  ’mUX-'FWJ,/. 

21A  F0WAT12X.  'TURBULENCE  SWITCHED  ON  AFTER  TIME  STEP  MO.-’. 

-  I5.2X,’AND  UPDATED  EVERY1. 15. 2X, ’TIME  STEPS'./) 


300  CLOSE (5 
CLOSE  t  6  ' 
close  a j 

CLOSE! 2 J 
CLOSE l 3 1 


c  subroutine  "IMITIA"  COMPUTES  COMMON  PARAMETERS 

c 

SUBROUTINE  I  HI T I A 
C 

PARAMETER! IM-7V9 . JM-100 J 

COWON  /fLOMV/  UllM.JM)tVUH.JH),PUH,JM>,RHOUH,JH)r 
1XMU! IM.JM), EDDY ( IM.JM  > 

COMMON  /GRID/  X'.]M,JM),YUM,JMJ,XXIUH.JH).YXIUH.JM5, 
lXETAdM.  JM-  .YETAI  IM.JMI.XJACUH.  JMJ.S(lM.JM).SSlUM) 
COMMON  /PI-  II.JL.ILE.ITEL.ITEU 
COMMON  'P2  GAM. Pft.PRT.XMl. RE. TH. SI. ALFA, ANGLE 
COMMON /HISC/IL1, 1  L2.IL3.JLl.JL2. JL3.ILEP1.ILEM1, 

-  ITELPI. ITELMI.rTEUPl.ITEUMl.GAMl.GAK2.GAM12.GXM.SlP, 

-  PlNP.SlNA.COSA.PRI .PRTI.REl ,XL.XL1,XLM,PI 
COMMON /DUWY/  TEMP(IM.JM.il 

COMMON  'SPECTR /  SPECTIIM.JM)  .PSMUdH,  JMI 
COMMDN/BM 0/  NSND,XMREF,TR£F,TINF.CV.CR.CT,DEL,L1,L2.L3,L4 
C 

C  -  COMPUTE  PARAMETERS  - 

1L1-IL-1 

IL2-IL-2 

ILJ-IL-3 

JL1-JL-1 

JL2-JL-2 

JL3-JL-3 

GAM 1 -GAM- 1.0 

GAM2-GAM-2.0 

GAM3-GAM-3.0 

XMI2-XM1—2 

GXM-GAM»XM12 

SIP-1. *si 

REl-l.O/RE 

PI-3.1A1592B5A 

RAD-PI/180. 

AMGLf-RADMLFA 
DEL  -  RAODEL 

GAM1I—1 . Q/GAM1 


PRI-l.O/PR 
GP R-GAM/PR 
PRTI-l.O/PRT 
XL— 2. 0/3.0 
XLM-4. 0/3.0 
XL1-I. 0/3.0 
1LEP1-REM 
ILlNl-lLI-1 
ITELPl-ITEL*! 

ITELM1-1TEL-1 

iteupi-iteu+i 

ITEUM1-ITEU-1 
PINF-l./GXM 
SI NA-SI N : ANGLE ) 

COSA-COSI ANGLE ■ 

c 

C  INITIALIZE  PSMUll.J)  FOR  PRESSURE  DAMPING  TERM 
DO  l  J- i,jl 
00  1  I-1.IL 
P$MUU,J/M).0 
I  CONTINUE 
C 

RETURN 

END 

C  SUBROUTINE  "METRIC”  EVALUATES  THE  COORDINATE  TRANSFORMATION 
C  DERIVATIVES  AND  THE  JACOBIAN. 

C  NOTE:  DX1-0ETA-1.0 
C 

SUBROUTINE  METRIC 
PARAMETER  dM-2*9.  JM-100 ) 

COWON  /GRID/  X(iM. JM),Y(IM,  JMl.XXK  IM.JM)  ,YXI { IM.JM ) . 

-  XETAf  IM.JM).YETa(  IM.JM) ,  KJACI  IM.JM)  ,S( IM.JM J ,  SSH  |M> 
COMMON  /Pi/  1L. JL. III. ITEL.ITEU 
C0MM0N/MISC/IL1.  IL2.1L3.JL1. JL2.JL3.ILEP1.ILEM1. 

-  ITELPI. I TELM1.IT EUP 1,1 TEUM1.GAM1.GAK2.GAM1I.GXM. SIP, 
c  -  PIMF.SiMA.COSA.PRI.PRTI.REI.XL.XLl.XLM.PI 

C  COMPUTE  DISTANCE  SSl(l)  ALONG  ETA-0.0 
SS1<  W-0.0 
DO  1  1-2, IL 

ds-sortm  xt  i .  i  >-x  d-i ,  i )  >*»2*t  y<  i  .  i  »-y(  i-i  ,  i  n»*2) 
ssid  >-ssid-i>*os 

1  CONTINUE 

C  COMPUTE  OISTACE  SU.J)  ALONG  THE  XIH.INES 
DO  2  I-1.IL 
$(1.11-0.0 
DO  2  J-2.JL 

OS-SORT  I  (Xd.J)-X(I.J-l  >  >—•?♦  f  Y  ( I ,  J  J_Y(  I ,  J“l )  >**2 ) 

SO,  J  *-$a,  J-D+OS 

2  CONTINUE 
c 

C  EVALUATE  TRANSFORMATION  METRICS 
C  INTERIOR  POINTS 
00  7  J-2.JU 
DO  ?  1-2. 112 

XKllI.J)-.f*IXi  I*l,JJ-Xd-l,J:  - 
Yxiu.j»-.5*<Yd+i.j)“Vd-i,ji 
xETAd.j)-.5*fxd.jn>-xd  ,j-iii 
vETAd.j»-.5*'vat>-i)-vd,j-i) ; 

|  7  CONTINUE 

C  X1-0.0 


DO  8  J-2.JL1 

XXI ( 1, Jj-.5*' -XI 3. J '♦4.«X! 2. J  >“3.»X( 1. J ) ) 

YXK1.  Jl-.5»'-Yi3.Jj^.*Y(2.JI-3.*Va,J)  ) 

XETA(  i,Jt-.5»(Xll.J*l)-XIl.J-l)  ) 

YET  A 1 1 .  J >- .  5*  (  Y(1 ,  J*1  >-Y  f 1 .  J-l ) ) 

8  CONTINUE 
C 

C  XI -XI MAX 
DO  9 

XXIUL.jJ— .5*»-X(IL2.J>*4.«XdLl.J>-3.*XtlL,J) } 
nillLJ)- .5*l-V(IL2.J)*4-*YlILl,J>-3.»V(IL,jn 
X ET A ( IL.J)-.5*(X:  lL,J*l)-XdL,J-i;  i 
YET*'  IL,J)-.5*IYIIL.J*D-YIIL.J-1J  1 

9  CONTINUE 

c 

C  ETA-0. 0 

DO  10  1-2, JL1 

xxiu.n-.s*ixti+i.i>-xu-i,i)i 

XETA(I,1  >-.5*l-Xd  ,3)«*4.*X(  I .2 »-3.*X(I,l) ) 

YElAII,  1  >■•$•( “Y»  l,  J**4.*Yd,2  >**3.»Y(I,lj  5 

10  CONTUSE 

c 

c 

C  ETA-ETAKAX 

98  00  11  1-2, IL1 

XXI{l.JL)*.5*iX(I-l.JL*-X'I-l.JLi) 

YXIU.  A YU+l.JU-Yl  l-l.JL}) 

XETAU.JL)— .5-<-xd  .  JL2KA.«Xd.JLl>-3.*xn,JLJ) 
YETA(I ,  JL  )»--5*I-Y  { I ,  JL2  I ,  JLl  )-3.*Yd,JL) J 

11  CONTINUE 

C  CONNER  POINTS 

99  XXI(1,1*-.5*I-X13.1>*9.*X12.1)“3.*X(1,1)) 
YXIIlfl)».5»‘-Y!3.1>-A.*V(2.1t-3.*Ya.i;  ) 

XETAI  l.l)-.5«‘-X;  l,3J**.*Xil.2.‘-3.*Xli.l)  I 
YEUl  1.  i  >•. 5*« -YC  1.3  I^.NY  11.2  >-J.*Y<  1,1) ) 

C 

XXI ( 1 , JL )-.5* I -X 1 3, JL  >*4 .*X( 2, JL )-3.«X(l, JL )) 

YXU1.  JL  >-.5*!-Y(3tJL>*4.*Y12,  JL )-3.*Y(l. JL )  ) 
XETAti.JL)—  .5*<-X(l,  JL2>-»*.*Xa,JLl)-3.«XU.JU> 
YE7AU.JL)— .5«'-YU.JU/*4.»YU,Al>-J.»Yh.JU>) 

C 

XXTf  IL.lt*-  .5*f-XdL2.1H4.«XdLl.l)-3.«X<Il.l)) 

YXH  IL.1  -Yt  IL2.1  •♦♦.•Yl  IH.1>-3.*Y(IL,1)  > 

XETAl IL. 1 “XI IL.3  '♦*.«X> IL.2 )-3.*X( ll.l ) ) 
YETAlIl.l)».5*i-YlIL,3i*9.«Y(IL.2)-3.*Y(lL,l) ) 

C 

XXI tIL, JL -X! 1L2, JL  Ill, JL )-3.*X< IL. JL ) ) 

YXI(il.JL>— .5*«-Y(IL2,JL>*A.*Y(IL1.JL >-3.*Y< IL, JL ) ) 
XETAdl.JL*  — -5*l-xaL.JL2»*A.«X;iLtJLl)-3.«X»IL.JU) 
YETAdL.JL)— .5*<-Y(lL.JL2»^4.»Y(IL.JLll-3.*YUL.JU) 

C  EVALUATE  JACOBI AN 
DO  12  J-l.JL 
DO  12  I-l.IL 

XJACI  l.Ji-XXK I. JI«YETA(1,J)-XETa(I.J)*YXI(I,J) 

12  CONTINUE 
C 

XJMIN-l.OE^lO 
00  122  J-i.JL 


DO  122  I-l.IL 

IF  (  XJACI l.J)  .LT.  XJM1N  )  THEN 
II  -  I 
JJ  -  J 
END  IF 

IF  (  ABSIXJAC!  J.JM  .LT.  l.OE-8) 

♦  UNITE  14.2115  I,J,XJACd.J/,XU.J),Yd.J) 

X JHI N*AM IN 1 < XJAC ( l . J ) , XJMI N I 
122  CONTINUE 

IF <  XJMIN. GT .0.05  GO  TO  500 

WITEU.205)  XJMIN 

WRITE! 4,204)  11 ,  JJ.Xdl,  JJ)  ,Y(1I,  JJ) 

C 

211  FORMAT  (2X1,I,J.XJAC,X(I.JJ.Y(I.J)  -  ' .2I5.E10.5.2F7.3) 

C  PRINT  METRICS  IF  DESIRED 
,  WRITE  (4,207) 

,  DO  23  I-l.IL 

WRITE  (4,200)  1 
WRITE  (4.201J 
00  13  J-i.JL 

WRITE  (4,202  )  J.Xd,J),Y(I ,  J)  ,XJAC(  I ,  J ) .  XXI  (l.J).  XETAl  I .  J ) , 

1  YXI(l.J) ,YETA(I, J) 

13  CONTINUE 
C 

C  FORMATS 

200  FORMAT  (20X. 'COLUMN' ,13) 

201  FORMAT  <4X  '  J'  .5X.  'X  ,8X.  'Y’,5X,  '  XJAC '  I ,  J  ) '  .  4X .  'XXId.J)', 

1  4X. ’XETA( I , J  J ' ,4X. 1 VXl ( l.J) ' t4X, 'YETA(l.J) ' J 

202  FORMAT  (2X. I3,7( 3X. E1D.3) ) 

205  FORMAT  WARNING  :  JACOBIAN  LESS  ON  EOUAL  TO  ZERO', 

3X, 'MIN! JACOBIAN t-'E15.7(/l 

204  FORMAT  (3X.7L0CATI0N  IS  AT  l.J  •  '  2I3.2X  '  AND  X.Y  -  \2F7 
207  FORMAT  ( 1H1 . 1QX. ' TRANSFORMATION  DERIVATIVES' ,// ) 

500  RETURN 
ENO 


SUBROUTINE  "TKSTEP"  COMPUTES  LOCAL  TIME  STEP  (DTAUII.J)). 
IF  BETA-0.  DTAU(I.J)  IS  A  CONSTANT  EQUAL  TO  OTMIN. 

IF  BETA.Wt.O. .  LOCAL  CFL  IM48ER  IS  USED. 

SUBROUTINE  TKSTEP 

PARAMETER ( IN- 299 , JH-100 ) 

CO»*<ON  /FLOMV/  U'  IM.JM)  ,V(IM,JM)  ,P(  IM.JM),  RHO 1 1 M ,  JM  ) . 
1XMU( IM.JM) .EDDY! IM.JM 

COMMON  /GRID'  X<IM.  JMi.YdM,  JM) .  XXI  ( IM.JM  J  .YXI  (IM.JM) , 
1XETA!  IM.JM)  .YET  A!  IM.JM,,  XJAC'  IM.  JM  ).  SI  IM.JM  ),  SSI  ( IM  ) 
COMMON  /PI/  lL,JL.HE.ltEL,lTEU 
COMMON  /P2/  GAM. PR. PR I .XK1, RE ,TM, SI, ALFA, ANGLE 
COMMON /MISC/IL1,1l1.  IL3.JL1. JL2. JL3.ILEP1,  ILEK1. 

-  ITELP1. ITELM1 ,  ITEUP1,  iTEUMl  ,GANI  .CAM2.GAM1I  , GXM.S1P, 

-  PINF.SlNA.aiii.PRI.PRTI.REI.XL.XLl.XUM.PI 
COWON /DUMMY/  TEMP'  IM.JM,  A  » 

C09N40N/T IMEM/  OTAUI IM.JM) .CFL. DTNIN.DTMAX, BETA, DTV1S 

X1-2.«GAW»REI 

DO  2  J-2.JI 
DO  1  I-l.IL 


) 


> 


c 

c 


c 

c 


c 


c 


c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


UC-<YETA4 I.J)*U< l.J) i/XJACd.J. 

VC-'-YXl' I .  J  '*Ud  ,  J  l+XXI  d  ,  J  '*V  i  I ,  J  )  j /XJACl I ,  J  t 
DSET2-XETA; 1 .  J  i»*2+YETA'. 1 ,  J>*»2 
0SXI2-XXI  I  .Jt»*2*YXId.J/*»2 
7-G XM*P-  l.J'-  RHOd.J' 

OTAU;l.Jj-i..  i  ABS !  UC  i -ABS (  VC )  +SORT !  T*  .  1 .  /DSET2- 1 .  /DSXI2  J  )/XMl 
-  <MXl«<XHU  I.J>*Pfil+EOOYll,J)*PRTI))/lRHD\l.J)*DSET2;  J 
OTAUl  1 ,  J  )«CFL*OTAUl  2 ,  J  > 

1  CONTINUE 

FI*®  OTMIN.0THAX 
DTMAX-C. 

DTMIN-1.0E+20 
DO  2  J-l.JL 
DC  2  Nl.U 

DTMIN-AMINUDTHIN.DTAU'  I.j) 

OTMAX-AMAX It DTMAX *01 AUv I , J » i 

2  CONTINUE 

OVERRIDE  CFt-COMDITIOR  .THIS  IS  DESIRABLE  FOR  VERY  FINE 
GAIOS  AMD/OR  1*4  VISCOUS  REGIONS 
00  22  J*l, JL 
DC  22  I-l.IL 

IF(DTAU;I.J  .CT .DTVJ S >  GO  TO  22 
OTAUi I,J)-OTVJS 
22  CONTINUE 

IF(BETA.NE.O.O)  GO  TO  100 
00  3  J»l,JL 
00  3  I-l.IL 

oTAua.jj-oms 

3  CONTINUE 

100  RETURN 
END 


SUBROUTINE  "STEPX",  PERFORMES  XI  -  SWEEP 
SUBROUTINE  STEPXdSMTCH,  DfiHAX.RMSDR ) 

PARAMETER ( IM-2** . JH-100 } 

C0W40N  /FLOHv  /  uflH.JMl.VdH,JM).PdM,JM>,RHOUN,JH), 
1XKU:  IH.  JHI  .EDOYdH.  JM 

COMMON  /GRIO'  X dH.  JH  , Y(  IH.  JN / . XXI  (  IH,  JH I . YXI I IM.  JM i , 
1XETAI  IH.  JH  .YETA!  IH.  JHI  .XJACl  IH.  JH  l  .  S'  lH.  JM  , .  SSldH  ) 
COMMON  /MATRIX/  AdH,  JH.  A .  4  >  .  RHS(IM.  JH, *  > 

COMMON  /PI/  IL.JI.ILE.ITEL.ITEU 

COMMON  /P 2/  GAM. PR, PRT , XM1 . RE . TH. SI. ALFA, ANGLE 

common /m isc/i li. il2.ilj.jlI. JL2 . jl3. ilepi . ilemi , 

-  I7EIP1.  nBLHl.inUPl.  JTEUH2.GAMI.GAM2.GAM1I.CXH.S1P. 

-  PIMF.siWA.COSA.PRI.PftTl  .REI.XL.XLl.XLM.PI 

COMMON  /T IMEM/  DIAUdM.  JM>  ,CFL , DTHIN . OTMAa , BETA»OT VIS 
COMMON/DUMMY/  TEMPI IM. JM.4 ) 

COMMON 'DAMP  /  ME.MI.HPE.HPI  .iSPEa 
COMMON /SPEC7R/SPECT I lH, JM) .PSMUl IM. JM) 


CALL  OUT  A 


COMPUTE  IHVISCID  JACOBIAN  MATRIX  A-DF/DO 
A 

COMPUTE  RMS- VECTOR  - 


CALL  RHSV 


ADO  FOURTH-ORDER  EXPLICIT  DAMPING 


CALL  C0NVRT1 

IF(ISPECT.EO.O)  GO  TO  10 
CALL  SPECR 
30  CONTINUE 

CALL  OAMPFY  IME.MPE) 

CALL  DAMPEX  I ME.KPE ) 


MULTIPLY  RHS-VECTOR  BY  -DTAU 


DO  1  K-l.A 
00  1  J-2.JLI 
DO  1  1-2.  IH 

RHS  d.  J.IO— OTAUd,  J  )*RHS(  I.J.X, 
1  CONTINUE 


-  COMPUTE  MAX.  A  L2-M0RM  OF  RESIDUAL 

IFdSHTCH.EQ.Oi  GO  TO  20 
CALL  CONVRGl DRMAX.RMSDS I 
20  CONTINUE 


CALL  BTRIDX 


SOLVE  BLOCPC-TRI DIAGONAL  LINEAR  SYSTEM 


RETURN 

END 


SUBROUTINE  "STEPY".  PERFORMES  ET*  -  SWEEP 
SUBROUTINE  STEPY 


PARAMETER' IM-2Y9. JM-lOOi 
COMMON /O AMP/  ME. Hi .MPE.KPI . ISPCCT 


CALL  CMATB 


COMPUTE  INV1SCID  JACOBIAN  MATRIX  B-OG/DQ 

B 

SOLVE  block-tridiagonal  linear  system  - 


IF4MPE.LT. 1.0E-05)  GO  TO  10 
CALL  PSMOOTM'2) 

10  CONTINUE 
CAU  BTRIDY 

RETURN 

END 


SUBROUTINE  "DAMPEX*  IMPLEMENTS  FOURTH-ORDER  EXPLICIT 
DAMPING  IN  XI-0IRECT10N 

SUBROUTINE  DAMPEX  (M.MPl 
PARAMETER'  IM-2M.  JM-100 

C0PRN3N  /FLOMV/  UdM.JM  , ,  VdM.  JM )  ,P4  IM.  JM )  .RMOf  IN.  JM ) , 
- _ XMU4IH.JM)  .EDOYdH.  JM _ 


L 


c 


c 


c 


c 

c 

c 

c 


c 


c 

c 

c 

c 


c 


c 

c 


c 

c 

c 

c 

c 


c 


c 


c 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 


c 

c 

c 

c 

c 

c 

c 


CW*«N  /GRID-  X* IN, JM’ .Y( IM.JM. .XXI' IM.  JM  .YXKJM.JM  . 

-  XETA< IN.  JM  .VETA,1H.JMi.XJXC;IM.JM  .S  I N . JH , . SSI ( IN 
COMMON  /MATRIX  A.lH.JM.A.Ai, RHS v IM . JM , 4 

COMMON  /Pi  IL.JL.ILE.ITEL.ITEU 

COMMON  'P2  GAM.Pfi.PfiT .XM1.RE . TM. SI . ALFA, ANCLE 

COMMON/MI  SC.  ILl.  H2.  I*.3.  JCi.  JL2.  Jt.3.  IlEPl.lLEMl. 

-  ITELP1.ITElM1.ITEUP1.IT£UH1.GAH1.GAM2.GAMII.GXM,S1P. 

-  PINF.SlMA.Ct7SA.PRI  .PftTI.REl.XL.XLl.XLN.PI 
COMMON /SPECTR-  SPEC!  1H . JM ! . PSMU! IN. JM i 
COMMON /OlXPfY/  TEW>tlK.JM.4J 

I F ( HP . LT . 1 . OE-05  J  GO  TO  10 
CALL  PSMOOTHi 1 
10  CONTINUE 


DO  1  K-1.4 
DO  1  J-2.JL1 
00  1  I<3.  IL2 


RHS( I,  J.K)-RHS<l,J.K:*SPECT\'  I.  J )•«**•< TEMPI  1+2,  J,K) 

-  -A. .TEMPI  HI.  J.K >♦*. -TEMP'  I,  J,K>-4.*T£MP{  1-1, J.K) 

-  ♦TEW><  1-2.J.K>  ;-MP«PSMU.-  I.J)*<7£MPil*l.J.Ki 

-  -2 .  •  T  EMP :  I .  J ,  K  ■  *T  EMP  I-l.J.KJM 


1  CONTINUE 


I  -  2 


00  2  K-1,4 
00  2  J-2.JL1 


RHS!  2 .  J,  K  »-RKS  f 2 . J ,K INSPECT (2.J)«(M*iTEMP<4,J.Ki 

-  — 3.*TfMPf  3.  J  ,K  '•  *3  .•TEMPI  2,  J.K  *  “TEMP*  1 ,  J.K  ?  / 

-  -HP-PSMU -2.J)*1  TEMP  3, J.K  »-2 ,*T EMP .  2 ,  J .  K 
*  *TEKP< 1, J.K  j . . 


2  CONTINUE 


I  -  IL-1 


00  3  K-1,4 
DO  3  J-2.JL1 


RKSf ILl. J.K J-RHS' ILl. J.K ASPECT 'ILl. < TEMP' IL3. J.K 1 

-  -3 . *Tf HP ' IL2 .  J  K  0.»7EMP  JL1. J.K  -TEMP  IL.J.K> 

-  -MP.PSMU  iLl . J *  TEMP  * 1L. J.K. --2. •TEMP; iLl.J.K 
*  ♦TEMPI IL2. J.K.  . 


3  CONTINUE 


RETURN 

£  KD 


SUBROUTINE  "DAMPEV"  IMPLEMENTS  FOURTH-ORDER  EXPLICIT 
Damping  IN  ETa-DIRECTIOn. 


SUBROUTINE  DAMPET  (M.MPi 

parameter  im-2**, jm-ioo 

COF*»ON  /FLOMV/  u  lM.JMi,V(IM.JM:,P(IM.JM..RHO'IM,JM  . 


XMU f I M . JM ' , EDOY ( I M . JM ' 

COMMON  /GRID  X  1M, JM . , V I IM. JM : . XXI ' IM. JM ! . YXl ( IM. JM  . 

-  XETA  IM . JM  . Y£T A ' I M . JM ! , XJAC (IM.JM  .S1  IH. JM  , . SSI  I IM 
COMMON  /MATRIX/  A( IM. JN. 4, 4 i .RMS < IM. JM,4 . 

COMMON  / PI  iL. JL.Ilk. ITEL. ITEU 

COMMON  /P2  GAN. Pfi.PRT.XMl, RE. TM. SI. ALFA. ANGLE 

COMMON /MI  SC / ILl. ILi . I L2. JL 1 . JL2, JlJ. ILEP1 . 1 LEM1 . 

-  ITELP1.ITELM1.ITE UP 1.ITEUM1 , GAM1 , GAK2  . GAM1I , GXM.S1P , 

-  P1NF.S1NA.CQSA.PRI .PftTI.ftEl.XL.XLl.XLM.Pl 
coh*on'$pectr/  spectIim.jmi.pSmuIim.jmi 

COMMON /DUMfY /  TEMPI  IM,  JN,  A  ) 


IFIMP.LT. I. 0E-05)  GO  TO  10 
CALL  PSMOOTH I  2 i 
10  CONTINUE 


00  1  K-l.A 
00  1  J-J.JU 
00  1  1-2, ILl 


RHS(1,J.K>-*HS»  I  .J.K  ASPECT  <1.J  >•<»■  (TEMP  II,  J*2.K> 
- 4.*tEMPi I.J-I.K •♦^-•TEMPl I, J.Ki-A.*TEMP< I.J-l.K) 

-  -TEMP  I  .  J-2.K  .  '-MP-PSMU.  I  ,JJ»ITEMP  l.J-l.K 

-  -2 .-TEMP i I , J.K (♦TEMP  1 I.J-I.Kl  > l 


1  CONTINUE 


J  -  2 


00  2  K-l.A 
DO  2  1-2. ILl 

RHSI 1 ,2 ,K )«RHS  f 1 . 2.K INSPECT { 1 .2  )•  I  M»<T0<PI I , A ,K ) 

-  -3.*TEMP.’I.3,Kc3.»7EMP'I.2,K/-TEMP{  I.J.KM 

-  -HP- PS MU  1,2 i»* TEMPI  1 ,3,K ) -2.* TEMP 1 1 ,2,K . 

-  -TEMPI  1,1, K1 J 1 

2  CONTINUE 


J  -  JL-1 


00  3  K-l.A 
00  3  1-2, ILl 

RHS ( I .  JL  1 . K  -RHS '  I ,  JLl.K  ASPECT !  I .  Jll  )•<  TEMP '  I ,  JL3.K  ! 

-  -3.-TEMP' I. JL2.K '-3.-TEMP  I .JLl.K  -TEMP  I.JL.K;) 

-  -MP-PSMU  I.JLli*iTEMP'.I,JL,K  -2.*TEMP(I.JLl,Ki 

-  -TEMPI I , JL2.K ; i i 

3  CONTINUE 

RETURN 

ENO 


SUBROUTINE  -RKSV- 

COHPUTES  THE  RHS-VECTOR  FOR  STEP  #1 

I .  E  .  RMS -OF /OX 1 -OG/DE  7  A  -OV 1 /OX I  -0  V2 /DX 1 -ONI /DE  7  A  -0K2/DETA 


SUBROUTINE  RM$V 


PARAMETER  IM-299. JM-100 ' 

COMMON  /FLOMV/  U  1M.  JM  j  ,VUH.  JH  )  ,P(lM.  JM  )  .RHOt  IM,  JM  , 
1XMU' IN. JHj . EOOYi IN. JH 

COMMON  /GRID  X .  IN.  JH  ,  .  Y !  IN.  JH ! ,  XXI !  IM,  JH  .  YXI  ‘  IM,  JM  , 
1XITA.  lM.JM..Y£UiIM.JM..XJAC.  IH.JM  .S,  1M.JH,  ,Sil>  JH. 
COMMON  'MATRIX/  AdH,  JM,  4,  4  j  , RHSi IM.JH.4 1 
COMMON  /PI/  IL.JL.IlE.ITEL.ITEU 
COMMON  /P 2/  GAH.Pft.PfiT.XMl. RE, TM. SI, ALFA. ANGLE 
COMMON /MISC/I L 1 . 1 Ll . IL3. JLl . JL2 . JL3 . IL EP1 . 1 LEH1 . 

-  ITELPl.ITELMl.ITEUPl.lTEUHi.GAHl.GAH2.6AHlI.GXM.SlP, 

-  PI NC.SlNA.COSA.PRI, PRTI.REl.XL.XLl.XLH.PI 
COMMON  OUHHr.  TEMP'  IM.JM.4 

COMMON /OX,  DXl.DX2.DX3.DX4.DX5.DXfc.DX7.DXB.0X9.DX10 


COMPUTE  RHS-VECTOR 


c 

c 

c 

c 

c 


c 


c 


c 

c 

c 

c 


c 


c 

c 


c 

C 

c 

c 

c 

c 

c 


c 


c 


c 


c 


c 

c 

c 

c 


c 


_ PART  f 1..  iwvrscro  TERMS  :  OF/Oxr+OG'DFTA 

—MOM  Qf  /  OXI 


DO  1  J-2.JLI 
DO  1  I-1.IL 

DX1-YETA( I.J>*u:1.J»-XETa:i,J)»V(I.j 
DX2- '  1.+GAMII  >aP:  1 .  Ji«.5*(Ui  1 .  I .  J)«2 

•RHOil.JI 

TEMPfl.J.l  )*RHOi I, J)*DX3 

TEMPI  I.J.2'-RH0:l,JJaU<  1  .  J««DX1+YETA;  I .  J  )*PU  .  J! 
TEMPI  I.  J.3  »-RHO:I  .  J)avU,Jj*DXl-XETA.  l.J>*PU.  J> 
TEMP' I . J , 4  i«DXl*DX2 
1  CONTINUE 

00  3  K-1,4 
DO  3  J-2. JLl 
DO  3  1*2.111 

RHS (I , J,K  t*. 5* (TEMPI  1*1, J ,K ) -TEMP 1 1-1, J.K)I 
3  CONTINUE 


OG  /  OETA 


DO  A  J-i.Jl 
DO  4  1-2. IL1 

DX1-XXI. I . J  *V l I , J  J-YXI f 1 , J )«U(  1 ,  J 
DX3- 1  1 . ♦GAMil  )*P;  I .  J  >*.5-  •  Ud .  J»a*2 
*v;  l,J»a*2)aRH0: l.J. 

TEHP.I.J.l >-RHO(I.J>»DXl 

TEMP; l.J. 2  '•RMO(I , J)«U« I . J I4DX1-YXI  I.JiaPi I.J1 
TfMPII.J.3»*RM0,  I.j)avt  J.J)aOXl*XXI  .J.JIaPU.J) 
TEMP  d , J , 4 I -OX 1-DX3 

4  CONTINUE 


DO  5  K-1,4 

00  5  J-2 , JL  2 

DO  5  1-2, IL1 

RMS i I , J . K  i  -RHS : I . J . K 


5  CONTINUE 


.5«< TEMPI I.j-l.KJ-TEMP'I.j-l.K: j 


PART  12  .  VISCOUS  TERMS  :  OV1/DXI*DV2/OXI*OM1/DETA*DH2/OETA 


DO  A  J-2, JLl 


0V2  /DXI 


00  7  I-1.1L 

DX 1  -XHU  (l.J)  ♦EDDY  (l.J) 

DX2-XXI : I. j.aXETA’ I .J. 

DX3-YXI v I , j.aYETA:  l.J: 

DX4-XXI '  J , J  l»Y£TA I J , J . 

DX5-XETA  I  .  J  >*YX1 ! 1 . j . 

OXfc— D*1-<DX2*XLH-0X3 
DX7-DX 1* i DX5*XL»DX4 i 
DXB-OX ]a { DX4+XI-DX5  1 
DX*— Dxla i XLH-DX2+OX3 ) 

Dxio—CAMn-rxNu:  i.  j>*pri*edoyu,  j>*prti  j 

•  l  DX2+OX3 ! 


DX1-REI/XJACI l.J’ 

DX2-. 5- I U1 l.jai i-UII.J-11 I 
DX3-.5-' V  I .  J*1  •  -v i I . j-l 
0X4- . 5-GAM-  ■ P ( I . J* I i /RHO  | . J-l  - 
Pi  1 .  J-l )/RHOi I .J-l i i 


TEMPd , J, 1 1-0.0 

TEMP ! 1 . J ,2  i-OXl*  fDXA*OX2*DX7aOX3 ) 

TEMPI I.J.3'-OKl-(DXfl*DX2+OX*4DX3' 
TEHP(I,J,4»-TEHP:  I,  J.2  »aUlI,J>-TEMPU,J,3>aV(I,J) 
♦OX  !•  OX  10*0X4 

7  CONTINUE 


A  CONTINUE 


DO  9  K-1.4 
00  9  J-2. JLl 
00  9  1-2, III 

RMSd.J.K  *-RHS(  X,  J,m-.5*I  TEMPI  I+l,  J.K  I-TEMP!  1-1,  J.K ) ) 
9  CONTIMJE 


0M1  '  OETA 


DO  10  J-l.JL 

00  11  1-2. IL1 

0X1-XHU  I . J  i  ♦EOOY d . J • 

DX2-XXI(l.JWXETAd,J) 

0X3— Y  XH1,J>*YETAI  l ,  J  s 
OXA-XXH  l.JjaVETAtl.Ji 
DX5-XETA1 I , Jt»YXI (l.J; 

0*A— 0X1- 1 OX2-XLM-OX3  ' 

DX7-0X 1* <  DY5*Xt*0X4 
DX8-0X1-  0***XL«DX5 
0X9— OKlai  XLH-DX2-DX3 

0X10— GAH1I-'  XHU  I  .  JiapRI-fDOYd  ,  J»aPRTI  ) 
•  ( 0X2+DX3 


OXl-WEI/XJACd,  J- 


c 


DX2-.5*lU!  I ♦  1 . J >-U(  I-lJii 

DX3-.5**  vil*l.J»-vu-l.ji 
0X4-.5*gam»  P  1*1.  j»/«HO. 

Pt 1-1. Ji/RHOt I-l.J. , 


TEMP i 1 ,J.l -*0.0 

TEMP; I.J.2 '-0*1* (DX6*DX2+OX8*DX3' 

TEMP  { I ,  J,  3  i-OXl* ;  DX7*DX2*DX8*DX3  '> 
TEMPa.J,*J-TEMP-  I.J.2  '*Ui  I .  J  )*7EMP{  I ,  J ,  3  )*Y  ( I 
*0X1*0X10*0X4 

11  CONTINUE 


J) 


10  CONTINUE 


DO  13  K-1.4 
DC  13  J-2. JLl 
DC  13  1-2. ill 

RHSa.J.K/-PHSU.J,K?-.5*ITEKPlI..Hl.KI-T£MPU. 
13  CONTINUE 


*•  DV1  /  OXI  ******* 


DO  14  J-2.JL1 


00  15  I-2.IL 

DX1*.5*(XMU  IfJ»*XMU  I-l.J -EDDY . 1 .J t*EDOY(  I-l.J ) * 
DX2* -5*t  XETa  1,J'*XETA- I-l.J; 

oxa-.s** yeta; i.j)*veta t i-i.j)/ 

D*  4-0X2**  2 
DX5-0X3**2 

0X4-0* 1* / DX4*XLM*DX5 > 

0X7— XL  1*DX1*DX2*  DX3 
0X8-0* 1*  t XLM*D*4*D*5  • 

DX8-GAM1 1*  .  5*  1  PR  I*  I  XHU.  1  .  J»*XMU‘  I-l.J  "* 

PRTlMEDOril.j  .*EOOYi  I-l.j  i*iDX4*OX5 


0X1-RE1 /< .5*  <  XJACl I , J ) ♦XJAC! I -1 . J ) J j 
0X2 -U  1 . J;HJ  1-1. J 
DX3-VI 1 . J  »-Vl 1-1 , J i 

o  x  4-CAM-  t  P  a  .  J  J  /  ftHC  (I .  J  )  -p  ( I  - 1 .  J  )  /1W0 !  I  - 1 ,  J )  ) 


TEMPI!, J, 11*0.0 

TEMP  1 1 . J , 2 I-OX !• 1 0X4*DX2*DX?*0X3 ; 

TEMP' I ,J.3’-DX1»'0X7*DX2*0X8*DX3* 

TEMP ; I . J , 4 i-TEMP  I  .  J , 2  >• . 5*  U  l.J -*U. I-l.J) ) 
•TEMP  1...3  4.5*  v. i,j»*v  I-l.j  ; 
♦OX 1*DX8*DX4 

CONTINUE 


15 

I*  conti hie 


00  17  K-1.4 
00  17  J-2, JLl 
DO  17  1-2. IL1 

RKS  l.J. K--RHS> I .J.K i-ITEMPf 1*1. J.K 1-TEMP (l.J, K; 
CONTINUE 


DM2  /  OETA 


DO  18  J-2. JL 


DO  18  1-2. IL1 

0X1-.5*  (  XKU  l.J  i*XMU  ’  1 ,  J-l  )*EDOY  ( 1 ,  J  )*EDOY I ,  J-l )  ) 
0X2- . 5* l XX I ! ] ,Ji*XXI  ■  I, J-l) > 

DX3- .5* ( YX1 ( 1 . J )*YX1 ( I , J-l ) ) 

DX4-0X7**2 

DX5-0X3**? 

DX4-0X1* 1 DXA*XLM*DX5 ) 

DX7— XL1*DX1*DX2*DX3 
DX4-0X1*  i  XLM«D*4*DX5 : 

0X*-GAM11*.5*«PR]*<XKKI  ,J»*XMU:l  ,J-1>  )♦ 

PRTI*  ( EDOY  U.  J )  *EDOY  1 1.  J-l  )>>•<  0X4*0X51 


0X1-REI / ( . 5*  f X JAC { I , J l*XJAC 1 1 , J— 1 )  i  1 
DX2-U. I , J  »-U< I .J-l  i 
DX3-V  I . j  '-v: I . J-l ) 

DX4-GAM-(Pi  I ,  J  l/RHOI  I.  J  »-P(  I .  J-l  )/RMO(  I,  J-l  )  , 


temp: i.j, i i-o.o 

temp: l.J, 2  )-DXl*(DX6*DX2*0X7«DX3; 

TEMPI  I, J, 31-0X1* :O*7*DK2*0X8*0X3: 
TEMPll.J.4i-TEMPf  I.J.2  l*.5*<U'.  I  .  J  '-HI  1 1 .  J-l  11 
•TEMP  l.J, *.5* « VI I.J >*V; I. J-l n 
♦OX1*DX8*OX4 

18  CONTINUE 


18  CONTINUE 


DO  21  K-1.4 
DO  21  J-2.JL1 
DO  21  1-2, 1L1 

RKS<  I .  J.KJ-RHSn  ,  J,K>-{  TEMPI  I , J+l ,K l-TEMPI  I ,  J.K  I  ) 
21  CONTINUE 


RETURN 

END 


C  SUBROUTINE  ' CHAT  A ' .  COMPUTES  JACOBIAN  MATRIX  A-  Df/OO 
SUBROUTINE  CHAT* 


PARAMETER i IM-248 . JM-100 ) 

COWON  /FLOMV  /  U'lM.JMI.VlIM.JMl.PdM.JMl.RHOlIM.JMi, 
lXMU'IM.JMI.EDOY'lM. JM 

COMMON  /GRID/  X  lM.JM:,Y'IM.JM!.XjrifIM.JM),YXIf  IM,  JM/. 
1XETA  lM.JM,.YET*f IM. JM/ . XJAC : IM. JM  . S ' IN. JH ; . SS 1 ( IM 
COMMON  /MATRIX/  A( IM. JM.4,4; ,RHS( IM.JM.4 i 
COMMON  /PI,  I l  .  JL, I Lt . I T  El , I TEU 
COMMON  /P2  GAM. Pft. PRT. XH1. RF .TH.S1. ALFA. ANGLE 
COMMON /HI SC/ 1 LI. I L2. IL3, JLl. JL2  . JL3, 1LEP1 . ILEM1 , 

-  IT£LP11ITELM1.ITEUP1.IT£UM1.GAM1,GAM2.GAM1I,GXM.S1P. 

-  FINF.5IMA.C0SA.PRI.PRTI.REI.XL.XLl.XLM.pl 
COWON/DX/  0X1  .DX2.DXJ  ,Dx 4,0X5 ,DX4 .0X7  ,DX8. 0X8, DX  10 
COMMON /DUWY/  TEMP <  I M,  JM ,  4  - 


00  2  J-2. JLl 


DO  1  1-1,11 
DX1-I.0/XJACI I.J’ 

DX2-YET  A  I , J i*U' I . J  )-XETA( I . J  )*V( I , J } 
DX3- .  5*GAM1*  i  U  I .  J  >**2*V  I .  J  )*«2 


OXA-MiAM*  I  p  I  1 .  j  1  /MO  1 1 ,  J  >*  ■  5*  I  Ui  J  .  J  >**2 

♦V.l.jiwjd 

At  X.J.l.H-0- 
A  I.J, 1.2  -OXl'VETA.'I.J 
A.I,J.1.3»— OXl»X£lAlI.J, 

All. J. 1.41-0. 

A{i.j,2,i)*oxi*'YeTAU.JJ*ox3-ow*u{i.jn 

All,J.2.2»-0Xl*<0X2-GAM2*YETAU.J)*mt.jn  jt  v<t 
AU.J.2.3  ih 0*l*(X£TAU.Jl*Ut  I,J>*GAMl*YETA{I.J)*V(l,J)l 
A; 1.J.2.4j-0X1*Gam1*Y£TA(I,J) 

AlI,J,3.1‘-H 0X1»(DX3*XFTA(I.J»*DX?*V'1,J  -  ' 

A  1 .  J ,  3 . 2  1-0X1* t  GAM1*XET  A »'  I,J)-»YETAtl.J)*V(I.J)  i 

A. 1 , J.3,3i-OXI*<DX2-GAK2*XETA; I.Ji*Vi I.Ji « 

A 1 1 .  J , 3 .  A  >— 0X1*&AM1*X£T A U  .  J  . 

A(I,J,4.1‘-0XI*0X2*t2.O*DX3-0XA!  4  „  _  , . 

A {  I ,  J ,4, 2  >*OXl*t  YFTa!  J  .J  »*(DX  4-0X3  t-GAMl*DX2*U(  I .  J  M 
At  I,J,4.3i-H OXl*t  XETA>  I  ,J>»(  DX4-DX3I  *OaM  *0X2*  VI  I.J)  ) 

A  t  i  .  J ,  4 , 4  /-OX  1*GAH*0X2 

1  continue 

2  CONTINUE 


C  SUBROUTINE  'CHATS'.  COMPUTES  JACOB 2 AN  MATRIX  A-  DC /DO 
SUBROUTINE  CHATS 

C 

PARAMETER! lM-2*3, JM-lOO) 

COMMON  /FLO*v  Ul ZN.JMI.VtlK.  jMl.PUM,  JHI.RHOtIM.  JM), 
1XHU' IH, JMj .EDOYt IM.JH) 

CO»«ON  /GRID  X.  IM.JH), Y(IM.  JM),XXmM.  JM !.  YXI IM.JH  > , 
lXETAlIM.JMi , YETA ! IM.JH). XJAL l  IM.  JMl  ,St  IH,  JM )  ,$S1UH) 
COMMON  /MATRIX/  AUN.JH.4,4  1  .RHSUM.JH.4) 

COMMON  /PI/  IL, JL.ILE, ITEL,IT£U 

COMMON  /P2/  CAM. PR.PRT.XH1.RE.TM. SI, ALFA, ANGLE 

COMMON /MJSC/1L1.IL2.1L31JiI,JL2.J13.1LEP1. I lEMl. 

-  ITELPI.ITELMI. TTEUPl  I TEUH1 .GAM1 . GAM2 . GAH1I , CXM. SIP , 

-  PiNP.SiNA.CQSA.PRI.PfiTI.REl.XL.XLl.XIM.Pl 
COMMON /DUMMY /  TEMP(lM,JM.4i 


DO  1  1-2. til 

0X1*1 . O/XJAC (I.J) 

0X3*  .  S-GAM1*  ( Ull .  J  >«2oV  { 1 .  J  )«*2  1 
DX2-XXI i I. Jl*Vt I ,  JJ-YXI ( 1 .JI*U( I . J ) 

DX4-GAM* ! GAM11 • P  I . J ) /RHO f I . J 1 ♦ . 5* ( U (1 . J >•• 7* 


At ! , J, 1, 1 )-0. 

A!  >— 0X1*YXJ  (],J» 

Aa.j.i,3i-oxi«xxia.j) 

All, J. 1.41-0. 


At  I  ,J,2, 1  >— 0X1*1  YXI  ( I . J>*DX3+U(  I .  J)*DX2  ) 

A(I.J.2.2)-OXU(DX2-KiAM2«YXIlI.Jl»U'I,J>) .  Il4 

At  I.J.2.3>-0Xl*tGAMl*YXKI,J)*Vl  I , J )*XXl I  I . J )*U(  I.J)  1 
AU.J.2.4/  — 0X1*GAM2*YXI(I,J) 

Al 1 , J ,3, 1 )-OXl*( XXT ( I , J l*DX3-V( 1 . J )*0X2 ) . 

A(  I .  J.3. 2  >—0X1*  I  GAMl*XXl  1 I ,  J  )*U»  l. J  J+YXI  1 l.  J)*Vl  I*  J )  ) 
A ( l ,  J.  3 . 3  i-OX  1*  ’  DX2-GAK2»XX 2  1 1 .  J  >*V(  2  ,  J  l ) 

At  I .  J,  3.4  >-OXl*GAMl*XXI  U  ,  J ) 

A t I . J . 4 . 1 1-0X1*0X2« f 2 . 0*DX3-DX4 ■ 

A< l , J.4.2 »— ■ OXI*t  YXI ( I .  J  '*''OX4-OX3)*GAM1*UU.  J)*DX2 ) 

Ai I.J. 4.31-OX  1*' XX I  I . J»*(0X4-0X3i-GAMl*V.  I.J 1*0X2 
At I.J.4.4i-0Xl*GAM*0X2 

1  CONTINUE 

2  CONTINUE 


C  SUBROUTINE  ’ CMATR ' .  COMPUTES  JACOBIAN  MATRIX  R-  OV1/OOXI 
SUBROUTINE  CMATR t I ,R 
C 

PARAMET ER I IM-2B5 , JM-100 i 

COMMON  /FLOMV/  U! IM. JM 1 , VI IM.JM ) ,P( 1M.JM ) ,tHQ( IM, JM 1 . 

1XMU '  IM.JH), EDOY ( IH,  JM)  .  .  _ ^ 

COMMON  /GRID/  X{lM.JM)fY(IM,JMl.XXI(IH.JM),YXIUM.JM), 
1XET4 '  JM.  JM; .  YETAUM.JHl.XJACl  IM.JM), SUM,  JMJ.SSIUM) 
COMMON  /MATRIX/  At IM. JM, 4 .4 1 .RHS l IM, JM, *) 

COMMON  /Pi/  Il.JL.ILLlTEC.ltEU 

COMMON  /P2 /  GAM. PR.PRT.XM1. RE. TH. SI. ALFA. ANGLE 

COMMON /MI SC/ILl.lLi. IL3, JL1 . JL2 , JL3. ILEP1.JLEM1, 

-  ITELPI.ITELMI. I TEUP1. I TEUM1.GAM1.GAM2.GAM11 .GXM.S1P, 

-  PlNF.SlMA.COSA.PRI .PRTI .REI.XL.XLl.XLM.Pl 

COMMON /DUMMY /  TEMPUM.JM.4)  _ _ 

COMMON. TJX/  OXi.DX2,OX3,DX4>OX3tDU.DX?tDXB.DX1fDXlO 
DIMENSION  R(1M. 4,4) 

C 

DO  2  X,  JL1 

C 

DXB-XETAI I , J  t**2 
DX7-YETAI I , J  1**2 
OXB-XMU'I.Ji+EOOYtl.J) 

0X1"REI / 1 «M0  I.J  >*XJAC f I » J )-*2 1 

OX2-tOX4-*XLM*OX7  t*0X8 

0X3— XL1*0X»*XETAI  i.J>*YETAU.J> 

0X4-1  Xt»MDX4-+0X7  1*0X8. 

OX  5-GAM*  t  XMU 1 1 ,  J  >4PRI+£D0Y(  1 .  J  J«PRTI  )•  ( DX4-KJX7 1 
C 

RIJ. 1,11-0. 

R! J, 1,21-0. 

R  J. 1,31-0. 

Rl J, 1.41-0. 

C 

Rf  J.2.  1  >— OXI*'OX2*Ul  1 ,  J)*0X3*V(  I ,  Ji  i 
Rt  J.2,2 )-0Xl*0X2 
RtJ. 2. 3)-OXl*OX3 


RU.2.4M). 


fit J.3, 1  >— 0X1*{DX3*U(I.J!*H)X4«V»1.J>  ) 

R: J.3.2  i-DXi*0X3 
Rl J.3.3  '-0X1*0** 

Jt3.4-« 

R  IJ.4  ,  1  >— 0X1» (0X3«Uf  I .  J  >»*2*2.«DXJ«U<  I ,  J  >•¥(  I ,  J ! 

♦OX*«V<  I.  J  >**2-0X5*  (  .5*<U{I,J>**Z*VU,J>**2> 
H»atJ)*CUMlI/RHOa,J> ! ) 

fit  J,*.2>-OXl*luU,J>*fOX2-OX5>-*-OX3*Vt  l.J>) 

Ri  J,4.3f-0Xl*i0X3*UiI.J.-V»  1 ,  J  )•  ( DX4-OX5  i  ) 

Rt J,4,4»«0X1«DX5 


C  SUBROUTINE  1  CHATS 1 .  COMPUTES  JACOBIAN  MATRIX  S-  DM2/D0ETA 
SUBROUTINE  CMATSU.RI 

1  C 

PARAMETER' IM-299, JM-100 

COMMON  'fLOMV  U< IM.JM. .V( IM.JM) , PI IH.JH) .RHO! IN. JM , . 
1XMU. IM. JM’ .EOOY( IM. JM 

COWO*  /GRID'  XI  JM.  JM; ,Y [  IM.JM). XXI t  IM.JM.' ,  YXI  (IM.JM.' , 
1  lXHAf  IM.  JM)  .YETAl  IM.  JMi.XJACilM.  JMl.St  IM,  JMI.SS1UMJ 

COWON  /MATRIX.  A I  IM.JM, 4 ,4  I.RHSl  IM,  JM,  A  J 

COWON  /pi/  il.jl.ilLitel.iteu 

I  COMMON  '  P  2  /  CAM. PR. PRT .  XM1 , RE , TH. $1, AlF A , ANGLE 

COWON /MI  SC '  Kl. 1 12. 1  L3.JL1.JL2.  J1.3.ILEP1.IL  EMI. 

-  HELP!. ITELM1.ITEUP1.ITEUM1.GAM1.GAM2.GAM11.GXM. SIP. 
I  -  PINF.SINA.COSA.PRI .PRTI . RE1 . XL . XL1 . XLM. PI 

COMMON  ■'DUMMY  '  TEMP'  IM.  JM,  * 

COMMON /DX  0X1. DX2. 0X3. 0X4. DX5.DXA. 0X7. DX8.DX9. 0X10 
DIMENSION  R  IM.4,4  i 

c 

I  00  1  1-2, IL1 

:  c 

0X4-XXI '  I ,  J  )**2 
|  0X7-YXI  { I  ,J)mI 

DX8-XKUI 1 , J  >*EODY(I ,  J) 

C 

I  OX  1-RE  I / i RHO  I.J)*XJACtI.JI**2) 

DX2-(DXA-»XLM*0X7  >*DXfi 
DX3— XL1*0X8»XXH  1 .  J  >*YXI  ( I .  J 
DX4-iXlM-OXfc*OX7  )»Oxe 

!  0X5- <  XMU . I . J  t*PR  I  +  EOOY 1 1 ,  J )*PRTI >*(DXS 

■♦0X7  )«GAM 
!  C 

,  R( I . 1, J >-©. 

RU.  1,21-0. 

!  R'l. 1.31-0. 

|C  «n.l.4,-0. 

1  R'I.2.1  )— DX1*(OX2*UU,J)-OX3*VCI,J)  ) 

!  R 1 1 .2 . 2 <-0Xl*0X2 

I  R ■ 1.2.3  >-0Xl*DX3 

!  R  1 ,2 . 4  >-0 . 


C 

r:  1.3.  i )— oxi*tox3*uti,  j)-ox4»v(X.jn 
R( 1.3.2  '-0X1*DX3 
I  R( 1,3,3  i-0Xl*DX4 

R 1 1 ,3,4  ;-C. 

c 

R(  1,4,1)— OX1«(OX2*U(J,J>-*2*2.«OXJ*U(I.J)»V(I,J: 

-K)X4-v,  I .  J  )**2-DX5*l  .9* (Ui 1 , J  >**2*V(  I ,  J)*»2  > 
-GAM1I*P i I , J ) /RMOt l , J  J  J ; 
R<I,4,2l-OXl*fU:i.J)#(OX2-OXi>-fOX3*va.J); 

R(  I .4, 3) -0X1*  l  U(  I , J)*DXJ+V{ I ,  J  l«  10X4-0X5  )  ) 

:  R( 1.4,4 >-DXl*DX5 


•  C  SUBROUTINE  "CXMU" .  COMPUTES  MOLECULAR  DYNAMIC  VISCOSITY  USING 
,  C  SUTHERLAND'S  FORMULA 

SUBROUTINE  CXMUtICHFCK) 

t  C 

PARAMETER' IM-259.JM-100 

►  COMMON  /fLOMY,  Ui IM.JM) ,V( IM.JM) ,P( IM.JM) .RHOf IM.JM. , 

1XMU' IM.JM. , EOOY  t  IM, JM 
COMMON  /PI.  IL.JL.ILE.ITEL.ITEU 
COMMON  /P2 '  GAM, PR. PRT. XM1. RE. TM. SI, ALFA. ANCLE 
C0W0N/MISC/IL1.  IL2.  IL3.JLl.JL2.JL3.  ILEP1 .  ILEM1 . 

-  ITELP1.ITELM1. J  TEUP 1 , ITEUM1 . GAH1 .GAM2. GAM1I , GXM.S1P , 

-  PINF  , SiNA, COSA.PRI , PRTI , RE1 ,XL , XL1 , XLM, PI 
C 

]  DO  1  J-l.JL 

DO  l  I-l.IL 

T-GXWfi' I. Ji/RMO(I.J> 

1  XMU  I . J  i -  SORT (T**3)*$1P/(T*$1 ) 

1  CONTINUE 

I  SoO  FORMAT  <2X. 'T,PtRHO  -  \3F10.4,  1  AT  I,J  \2!4) 
j  RETURN 

END 


C  SUBROUTINE  "COMVRT,\  COMPUTES  RHO/J,  RMO*U/J.ETC.  USING  PRIMITIVE 
C  VARIABLES  RHO,  U.  V  AND  P. 
i  SUBROUTINE  CONVRT 

C 

PARAMETER  t  IM-m .  JH-100 ) 

CDWQM  /FLOMY/  U(IM, JM).V(IM,JMJ,PaM,JM),RMO(  IM.JM), 

1XKJ  IM.JM  i  EDOY<  IM.JM; 

COMMON  /GRID/  X(  IM.JM)  ,Yt  IM.JM )  ,XXl { IM.JM) .YXI  (IM.JM ) , 

,  1XETA'  IM.JM  I ,  YETAI  IM, JM J ,XJAt( IM. JM ) , S l iM« JM ) ,  SSlt  IM  ) 

corny*  f PI/  !l . JL.ILE, ITEl , ITEU 
COWON  !?7.'  GAM, PR.PRt.XMl.RE.TM. SI, ALFA, ANGLE 
COMMON/MI  SC  III. IL2.IL3.JLl, JL2, JL3, 1 LEPl , IlEMl . 

-  ITElPl, ITElMl , ITEUP1 . ITEUM1 ,GAM1 .GAK2.GAM1I .GXM.S1P, 

-  PINF .s1na.C0SA.PRI .PRTI, RE1.XL.XL1. XLM. PI 
COWON/DUMMY/  TEMPt  IM.JM.  4  < 


DO  1  J-l ,  JL 
DO  1  I-l.IL 

TEMPf  I ,  J  ,  1  >-XjAC(  I ,  J  )*RHOU  ,  J  J 
TEHP1I.J,  21-TEMP  I ,  J.  1  j*Ui  1 ,  J 
TEMP  1. J. 1 , J, 1 »»v; I .  J 
TEMP' I, J. 4 >-XJAC.l,J»»»GANll*PtI,J)* 

1  CONTINUE 


SUBROUTINE  "UCONVRT",  COMPUTES  PRIMITIVE  VARIABLES  RHO,  U.  V  AND  P 
USING  RHO  J.  RHO*U.'J,  ETC. 

SUBROUTINE  UCONVPT 

PARAMETER  1 1 M-2** ,  JN-1 00 1 

COMMON  /FLOMV ’  Ui IM. JM ) , VI IN, JM 1 ,P11M, JM ) ,RHO( IN, JH ) , 
1xmu:ih.jm).eddy; im. jm» 

COMMON  /GRID/  X' IM. JM r . Yt IM. JM » . XXI (JM. JM) .YXI < IM. JM 1 . 
lKETAIM.JH.YETAiIH.JM  .XJAC  I*  JM  .  .  S  .  IM.  JM  .  .  SSI  l  IM  . 

COMMON  'PI  lL.JL.IlE.ITEl.ITEw 

COMMON  !97  GAM. PR.PRT.XM1. RE. TM, SI. ALFA. ANGLE 

COMMON /MI SC .'1  LI.  IL2. 1L3.JL1.JL2.JL 3.  ILEP1,  ILEM1 . 

-  ITELP1.  ITELM1.  ITEUPMTEUMl.GAMl.GAM2.GAMn.GXM.SlP. 

-  PINF.SlNA.COSA.PRI. PRTI.REI.XL.XLl.ALM.Pl 
COMMON' NORM >  UNORM  VNORM 

COWON  /DUMMY  /  TEMPI  IK, JM , 4 > 

UNORM  -  0.0 
VNORM  -  0.0 

DO  1  J-l.JL 
DO  1  1-1, IL 

ULAST  •  UII.J) 

VI  AST  -  v  ( I ,  J ) 

RH0:I,J)-TEMP!I,J.1)/XJAC{I,J) 

RR-1. /TEMPI l.J.Xl 
uii.ji-temp:i,j,2)«rr 

V( I,J)-TEMP<1,J,3)*RR 
Pi  I ,  J  )«GAM1*RH0-!  J  ,  J  )• ( TEMP  I  I ,  J.4  >»RR- 
1 .  J  ■•*2*V(  I .  J  )»«2  ;  * 

UNORM  -  UNORM  ■*  (  ULAST  -  UU.JI  )*«2 
VNORM  •  VNORM  ♦  \  VLAST  -  VI l, J)  J«*2 

1  CONTINUE 

UNORM  -  SORT (UNORM  /  FLOAT ( (IL-1 >•{ JL-1 > ) ! 

VNORM  -  SORT! VNORM  /  FLOAT { { 1L-1 )*tJL"l ) ) ) 


SUBROUTINE  "C0NVRT1*  FORMS  CONSERVATION  VARIABLES  USING 
THE  AVAILABLE  PRIMITIVE  VARIABLES  RMO.U.V.P 
SUBROUTINE  CONVRTJ 

PARAMETER! IM-244.JM-100 I 


COWON  /ELOMV/  UaM.JM',V(lM,JM/.P/IM.JM/.RMO(IM.JM>. 
XMUl IM.JM; ,EOOY( IM.JM  ■ 

COMMON  /GRID'  X  ( IM .  JM  J.VI  IM,  JM  1  ,XX1  '■  IM,  JH  i , YXI ( IM.  JM  ) , 

-  XETAi  IM.  JM  l  ,  Y£T  A I  IM,  JM  i  ,  XJAC  •’  IM .  JM  1 .  S  l  IM .  JM  )  .  SSI  ( IM  ) 

common  /pi  ii.jl.il£,i-ei .mu 

COWON  /PJ/  GAM , PR  PRT.xM1.RE.TM.S1, al Fa. angle 

C0MM0N/MISC/IL1, IL/.Ila. JLl. JL2. JL3. ILEPl , ILEM1 , 

-  ITELP1.ITELM1.ITEUP1.ITEUM1.GAN1.GAM2.GAM1I.GXM, SIP, 

-  PINF.SIHA.COSA.PRI.PftTI.REI.XL.XLl.XLM.PI 
COWON/OUMKY/  I EMP I  IM,  JM,  4  J 

DC  1  J-l.JL 
DO  1  I-1.1L 

TEMPI l.J.l >-RMOII.Jl 
TEMP' I. J.2 i-RMOt I . J i *U '  I . J : 

TEMP' I.J.3'-RH0  I.JinVI I.J 

TEMP'«I.J.*)-GAMlI«PiI,J^.5*RH0;  I.J)*IUJ I,J)«*2 
♦V'1,J>»*2» 

1  CONTINUE 


SUBROUTINE  "MONITR".  COMPUTES  information  reouired  DURING 
TIME  INTEGRATION.  THIS  INCLUDES: 

A)  CONVERGENCE  CRITERIA 
B '  AIRFOIL  LIFT  AND  ORAG  COEFFICIENTS 
SUBROUTINE  MONITR  INSTEP , TaU.DRMAX,  RMSD8 ) 

PARAMETER  ( IM-2M .  JM-lOO ! 

COWON  /FLOMV/  UllM.JM»,V(IM, M)  ,P(1H.JN),RH0<IN,JM\ 
IXMU:  IM. JM ) , EOOV ' IM. JM, 

COWON  /GRID/  X'IM.JMi.VUM.JMI.XXIIIM.JMKYXKIM.JM;, 
IAETa' IM. JM. .VETAIIN, JMj .XJAC'IM. JN;.S< IM, JM/ ,  552 ( IM  i 
COMMON  /PI'  IL.JL.IU.ITEL.ITEU 
COMMON  /P2 /  GAM, PR.PRT.XM1. RE. TM. SI. ALFA, ANCLE 
COMMON 'Ml SC/lLl. IL2 , lL3, JLl, JL2, JL3, 1LEP1 , ILEM1. 

-  ITELP1 . ITELM1 , ITEOPl. ITEUM1 .GAM1 .CAK2 . GaMII .GXM.S1P, 

-  PINF.SIna.C0SA.PR1 .PRTI.Rtl.XL.XLl.XlM.PI 

COMMON /TlMEM/  dtAuum.jmi  ,CFL.DTKIN,DTMAX,BETA,DTVIS 
COWON/DUWY/  TEMPI  IM.JM.4j 
COMMON /NORM/  UNORM. VNORM 


COMPUTE  AIRFOIL  LIFT  AND  DRAG  COEFFICIENTS 


CALL  Lin  (CLIFT .CDftAG > 

-  OUTPUT  - 

MRITEI 4,200 1  NSTEP.TAU.DRMAX ,RMSD®  .UNORM, VNORM,  Cl  I  FT,  CHUG 
-  P* ITEU.l j  -  l./GXM 
XN-FLOArrRStfP' 

XL0GMK-AL0G10I DRMAX ) 

XLOGRM-ALOGIOIRMSOR) 

MRITEl 3,201 )  XN .  T  AU. KLOGMX , XL OGRN , CL I  FT . CDRAG  .UNORM. VNORM. 

♦  rmAor.Cp 


FORMATS 


200  FORMAT ( IX.  'T  -M5  ’  TAU-\£10.3. 

-  4612.5’  Cl-'. Eli. 5.’  CD«\£12.4> 

201  FORKAT(10E13.5) 


C  SUBROUTINE  •CtWVRCr 

SUBROUTINE  COMVRG  ( DRHAX,  8MSDR ) 

PARAMETER < IH-299 , JM-100! 

COMMON  /FLOMV/  Ui  IM .  JM  .  Vf  IM ,  JM  \  P  UH ,  JM  )  .  RHO(  IH ,  JH  i , 
XMU'IM.JH  .EDDVUM.JM) 

C0W40N  /GRID  XtIH.JM  .  Y  i  IM.  JM  ) . XXI  ( IM.  JM ) . YXH  IM,  JM : 
-XETA(IM,JM].Y£TA>IM.  JM>  .XJACUM,  JM,.S<  lM.JM),£SlUM) 
CO**«ON  /MATRIX/  A(  IM.JM.4,4),RHS;iM,  JM.4) 

CO^ON  /PI/  XUJL.lLl.ITEL.lTtU 

COMMON /TIM  EM/  OIAUtlM,  JM)  .tFL.DTKIN.OTMAX.flETA.OmS 

SUNR-0 

DRMAX-O. 

|  IL1-IL-1 

>  JL1-JL-1 

FN-FLOAT ( ( IL-2 >•( Jl-2  ) ) 

C 

00  1  1-2, IL1 
DO  1  J-2.JU 
Dfi*ABS(*HSU,J.l  M 

DRMAX-AKAX1  ( DR  MAX,  08  ) 

SUMR-SuWKWwOR 
1  CONTINUE 

RMSOR-SQRT ( SUMR/FM ) 

RETURN 

ENO 


C  SUBROUTINE  “BTRIOX*  SOLVES  BL0QC-TR1 DIAGONAL  SYSTEMS 
C  FOR  TME  XI  -  SHEEP 

SUBROUTINE  BTRIOX 

C 

PARAMETERf IM-29?. JM-100) 

COMMON  /GRID/  XUM.JM).Y(IM.JM).XXHIM.JM).YXHIM.JM). 
1XETAUM,  jM).YETAUM.JM-.XJAC(IM,JM}.S(lM,JMitSSl(IM) 
COMMON  /MATRIX/  Al IM. JM . 4 . 4 1 ,RHS( IM. JM . 4 
COMMON  /PI  IL.JL.ILh.ITEL.lTEU 
COMMON  /MI  SC/JLi ,  I  i  2 . 1 1_3.  JL  i .  JL2 ,  J13. 1 LEP1 . !  IEM1 . 

-  ITELP1.ITELM1.ITEUP1.}TEUM1.CAM1,CAM2.GAM11,CXM,S1P. 

-  PJNF.lINA.COSA.PRl . PRTI , REI.XL .XLl.XLM.PI 

COMMON  /  T I  MEM  /  OTAUUM,  JM) , CFL ,OTHIN. DTMAX , BET A, DTVI S 

common  .'Dummy  /  tempi  im.  jm,4) 
common  /Damp /  me.hi .mpI.w^i .ispect 

COMMON 'SPECTR/  SPEC! ( IM. JM I .PSMU< IM. JM ] 

COMMON  OX/  0X1 , 0X2 . 0X3. OX 4 .0X5 .0X4 , 0X7 . DX8.DX9 . DX10 
!  COMMON /BTR 10/  AA«IM.4.4).BBlIM.*,4).CC'lM.4.4)t 

i  -  MRKl IM,4.4i.Lll(IM;tL2l!lM' . L22i IM ) ,  LSI ( IM) , 

-  L32(IM),L33iIM).L41'lM),L42(IMi. 

I  *  143UM).L44(IM).U12i  IM;  .U13!  IM),U14(IMJ . 


c  -  U23( IN ) , U24( IM ) , U34 ( IM ) 

REAL  Lll .L21 . L22.L31 . L32 . L33, L41.L42. L43.L44, 
I  ~  U12.U13.U14.U23.U24.U34 


PART  1.  FORWARD  SHEEP 


L31 J  >-AAl J  ,3,1) 

132  ( J  >-AA !  J,  3, 2  >-131 1 J  )*U12 1 J ) 

L33<  J»-l./*AAi  J,3,3)-L31U»*U13*J)-L32U>*U23<  J)1 
J3*« J  J-L33C J l«< AA< J. 3.4 »-L31l J)*U14lJ> 

1  -L32. J>*U24*J> ) 

L4l  l  J.I-AA  l J , 4, 1 ) 

L42i J>-AA(J.4,2i-L41* J)*U12*J) 

L43*  J  i-AAlj,4,3»-i.41{  J  )*U13t J >—L42tJ>*U23l J) 

L44 t  J  >•  1 .  / 1 AA  l  J ,  4 , 4  }  — i.41 1  J  )*U14  * J ) 

1  -L42U)*U24(J>-U3<J)*U34(J)  J 

SOLVE  FOR  I  NT ERMED1ATE  VECTOR 

DX1-L11* J t*RHS( I • J • X ) 

OX2-L22:  J»*iRHSU.J,2)-L2UJ)*DXl) 

OX3*L33i J  >• i RHS : 1 . J.3J-L311 J)*OXl 
1  -L32*J>*OX2  J 

DX4*L44 l  J  >»  ( RHS '  I ,  J,  4  >-Ul  (  J  >*DX1 
1  -142* J>*OX2~L*3t J  >*QX3  J 

RHSU,J,4)-0X4 

RHS  (1 .  J .  3  » -0X3-U34 ( J  )*DX 4 

RHS* I.J.2 i-DX2-U23v J  »*RHS  *  I .  J,  3 ) 

1  -U24iJ  r*0X4 

RHS( I , J, 1 )«0X1-U12i J  »*RHSi I.J.2) 

1  HJl3(J)*RHSa,J,i)-Ul4t  J)*DX4 


If  U.EQ.IU)  GO  TO  I 

-  COMPUTE  GAMMA* I, J)  (SEE  ROTES  FOR  OEF.) 

DO  4  M-1.4 
DC  4  J-2.JL1 

0X1-L1U  J)*CCt  J.l.M) 

DX2-L221  J)*tCC<  J.2,M»«L2K  J)*DX1> 

0X3*133 1 J  >•  *  CC  ( J .  3 ,  M  > 1 J  )*DX1 
1  -132  (J)  *0X2) 

0X4-144 *  J  )•  ( CC*  J .  4.M  ( J  i»OXl 

1  -142* J >*0X2-143 <J>*DX3; 

WRKf J.4,M)-DX4 

HRK l J . 3 , H  )«DX3-U34 ( J )*DX4 

MAM J.2.Hi-DX2-U23^ J >*MRK( J.3.M ) 

I  -U24(J)»DX4 

MRKl J,1.M)-0X1-U12i J)*HRK! J.2.M) 

1  -U13 ( J )*WRK  >  J , 3 . H ) — U 1 4  *  J )*DX4 


-  COMPUTE  AA.BB.CC  FOR  NEXT  ITERATION  - 

CALI  FILLMXf  1*1 ) 

-  SAVE  GAMMA ( I , J ) 1 S  ON  JACOBIAN  MATRIX  A 

DO  5  L-1,4 
00  5  M-1,4 
DO  5  J-2.JL1 


A( 1 .J.L.M) -MRKl J , L,M) 
5  CONTINUE 


BACXMARO  SHEEP 


2IE*ILl-2 
DO  4  1 1*1 ,1  IE 
I-IL1-II 

DO  7  L-1,4 
DO  7  J-2.JL1 

RHS t 1. J.L )-RHS ( I , J.L) -A* l, J.L. 1>*RHS* 1*1. Jf 1 ) 

1  -A* l , J,L, 2  )*RKS<  j+1 , J.2 ) 

2  -At l , J,L, 3 )«RHS  • 1+1. J . 3 J 

3  ”A( I , J ,L ,4 )*RHS  * ] +1, J , 4 ) 

7  CONTINUE 
4  CONTINUE 


C  SUBROUTINE  "FIILMK*  FORMS  4X4  BLOCKS  AA.  88.  CC 
C  REQUIRED  IN  XI  -  SHEEP  *  INCLUDES  IMPLICIT  DAMPING) 
SUBROUTINE  F1UMX  ID 
C 

PARAMETER* IM- 244. JM-100) 

COMMON  /GRID/  XI  IM.JNI.YIIM.JMKXXKJM.JMJ.YXI'IM.JM), 
1XETA*  IM.  JM,.YETAUM.JM;.XJAC(IM,JM},S(lMf  JNJ.SSKIMi 
COMMON  /MATRIX/  A( IM, JM, 4 , 4 J ,RHS ( IM, JM. 4 i 
C0*40*  /P\/  IL.JL.ILE.ltEL.I7EU 
COMMON /HI SC/IL1.1L2. 113, JL1.JL2.JL3. ILEP1 , ILEMl. 

-  ITELP1, ITELH1, ITEUP1, ITEUMI ,GAM1 .GAK2.GAM12 ,GXM,S1P, 

-  PINF.SINA.C0SA. PRI, PftTI.REl.XL.XLl.XLM.PI 

CDMP AON  'TIME*/  DTALM  IM, JM , ,CPL,D JHIN.DT MAX, BETA, DTVTS 
COMMON /DUMMY /  TEMP* IM. JM.4 ' 

COMMON/DAMP/  ME.M1.MPE.hPi .ISPECT 
COMMON 'SPECTR/  SPECT ( IM. JM • ,PSMU( IM, JM) 

COMMON/8TRID/  AA I IM. 4, 4 ) . 88 ( JM, 4. 4 ) , CC! IM. 4, 4 > , 

-  MRK< IM, 4 . 4) .till IH) .L2lf IM) ,L22( IM) . L31 ( IM) , 

-  L32 ( IMj ,L33l IM) ,  L41 1 IM) . L42* IM / , 

-  L43(IM) ,L44t IMI ,U12*1M) , U131IM) ,U14(IM) , 

-  U23/lM,\U24/lMJ.U34lIM> 

c  C0W4GN/CMAT /  RfiUM,4t4)  ,RPl<  XM,4,4  J  .RMHIM.4,4) 

REA!  L11.L21.L22.L31.L32.L33.L41.L42.L43.L44, 

U12.U13, U14.U23.U24 ,U34 
C 

C  COMPUTE  VISCOUS  JACOBIAN  MATRIX  'R* 

IPl-I+1 
IN1-J-1 

IF  *  I  .GT.  2  )  GOTO  100 
CALL  CMATR(I.RR) 


100 


CALL  CMATRUM1.RMD 
GOTO  200 
DO  11  *-1.4 
DO  11  L-1,4 
DO  11  J-2.JL1 
RM1U.L.H1  -  RR;j,L,N) 
RRtJ.L.Mi  •  RPUJ.L.M) 
CONTINUE 


CONTINUE 

CALL  QUTR(IPl.RPl) 


DO  1  1-1,4 
DO  2  *-1.4 
DO  2  J-2.JL1 

AA! J.L.M.-2.-RR  J.L.M) 

BBiJtL.Hi— •  .S*A<I-i,J,L,M)«*Mli J.L.M j  ; 
CC:  J, L .H)-.5*Al  !•»!,  J,l, Ml -RP1(  J.L.M) 

2  CONTINUE 


ADO  IMPLICIT  DAMP IMG 


DO  3  J-2.JL1 

HISP-SPECTU.J>»<MI«MP!*PSMUU.J>  l 
aa; j.l ,L >-AAi J.L.L ■ *2.*MISP/XJACi 1 , J 

bb; j.l.l i-bb; j.l.l  j-misp/xjac; i-i, j. 
CCC J.L.L  )-CC( J.L.L »-MISP/*JAC< 1*1, J* 
3  CONTINUE 


MULTIPLY  BY  DTAUU.J) 


DO  4  *-1,4 
00  4  J-2.JL1 

AA(  J.L.  M'-OTAUa.J  »«AA(  J.L.M  > 
BB; J.L.M '-OTAU. i.J  >*B8 . J.L, Mi 
CC> J.L.H'-OTAUI l,J)*CCl J.L.M) 

4  CONTINUE 


ADO  IDENTITY  MATRIX  TO  AA  iDlAGONAL ) 


DO  5  J-2.JL1 

Aa:j.L,L>«AA{J.L,U+1.0 
5  CONTINUE 


1  CONTINUE 


RETURN 

END 


SUBROUTINE  "BTRIDY*  SOLVES  BLOCK-TR I DIAGONAL  SYSTEMS 
FOR  THE  ETA  -  SHEEP 
SUBROUTINE  3TRJDY 


PARAMETER f  IK-249 .  J^lOO  ) 

CO**Ok  /GRID/  Xi  IM.JMj  ,Y(  IM.JM ),XXI(1M,JMJ  ,YXI  ;  IM.JM:  , 
1XET4  IM. JM ; ,YE7A( IM. JM; ,  XJACf  IM.JM  .',5ijM.JM;,5SlljM 
COMMON  /MATRIX/  AC  I*. JM.4 . 4 ) , RMS( IM. JM. 4  - 
COMMON  /PI/  IL.JL.ILt.ITEL.ITEU 
COMMON /Ml SC/ 1 Ll . IL2.IL3.JL1.JL2.JL3.IIEP1. IL EMI . 

-  I TELP1 . ITELMI . I TEUP1 . ITEUM1 . GAM1 . GAM 2 . GAM1 I . GXM. SIP . 


-  PINE.SlNA.COSA.PRl.PRTI.REI.XL.XLl.XLM.pl 
CONMON/TIMEN/  DTAUC I M. JM I . CFL .DTMI N .DTMAX . BETA. DTVI S 
COMMON/OUMMY/  TEMPC IM. JM.4  l 

COMMON/DAMP/  ME . HI . MP£ .HPI , I SPECT 
COMMON /SPECTR/  SPECT ( IM.JM ). PSMU< IM.JM' 

COMMON /DX/  DX1 . DX2.DX3. 0X4 . DX5 . OXfc , DX7 . 0X8 . DX9 . DX10 
C0»#<0«/BTRIO/  AAlIM,4,4)tBB(IM.4,4I.CCf  lH.A.Ai, 

-  MftK(lH.4,4> ,Lil( IM. ,L2ll IM)  .L22(  IHI.L3K  IH) , 

-  L32( IM) ,L33i IM) ,L4ll IM) , L42l IM) , 

-  L4J)  IM ) • 144 (  2M),  U12I  IM  ?  ,UU<  JM) ,  U14I JM ) , 

-  U2JC 1H ) . U24  ( IM  5  ,U34(  IM  ) 


REAL  L11.L21.L22.L31.L32.L33.L41.L42.L43.L44. 
U12.U13.U14.U23.U24.U34 


PART  1.  FORMARD  SHEEP 


PREPARE  FOR  FIRST  ITERATION 
CALL  FILLHY12 ) 


DO  1  J-2.JL1 


IF  fJ.EO.2)  CO  TO  100 


DO  2  L-1.4 
DO  2  1-2, IL1 


RHSU .  J. L  >-*HS (1 ,  J ,  L  > -*B  ( I .  L ,  1  >*RHS  ( l .  J-l .  1 1 

1  -BBl  I , L,2 )*RHS( I , J-1,2  J 

2  — BB( X ,  L .  3 )»RHS ( I • J-l, 3 ) 


■  BUifc.Ji-nnii  i  .j 

-BBC  1  ,L«4M8HS(  I,  J-l, 4  J 


A  (  I .  L  , 


1  )-AA( I ,L, 1 >-BB ( 1,L, 1 )*A( 1 , J-l, 1,1 ) 
-BB< I ,L,2 i»A( I ,  J-l, 2,1 » 


-BBC I.L,3>*A( I.J-I.3,1) 
-BB 11, L. 4 <• All, J-l, 4,1) 


AA ( I , L  * 2  >-AA  l J.L, 7 f -BB (1 , l « 1 >*A ( I «  J-l ,1,2) 
1  -BBC  1 ,L,2 l*A( I , J-l, 2,2 ) 

7  HBBl I ,L,3 ••A<I . J-l ,3,2 i 

J  -BBI I ,L,4  )«A1 1,  J-l, 4,2 ) 


AA ( I , L . 3 )-AA ( I , L . 3  )-BB ( I ,L. 1 >*A( I , J-l, 1,3 

1  -BBC  I ,L,2 >«A( I, J-l ,2. 3) 

2  -BBI.L.3i«A( I. J-l. 3.3) 

3  -BBc I ,L,4 i*A( I , J-1,4,3 i 


AA( X.L.4 )«AAC 1 ,1 ,4  >-BB t 1 ,1, 1 >»A( I , J-l, 1.4) 

1  -BBC I.L,2jaA(J,J-1,2.4) 

2  -BBU,L.J)*AU,J-1,3,4 

3  -BB  C 1  ,  L  ,4  »A(  1 , J-l, 4,4  > 


2  CONTINUE 


100  CONTINUE 

-  USE  GROUT’S  METMOO  TO  SOLVE  4X4  SYSTEMS  OF  EQUATIONS 


00  3  1-2. IL1 


Llim-1./AA<I.1.1! 

U12(I)-AA< 1.1. 24*111(1) 

U13  <  I  i«AA '  1 , 1 , 3 )*L11 ( I ) 

U14il  >«AA:  l,lf4l*Lllll> 

L2Ul>^AAH.2tli 

L22U>-l./<AAll.2,2M.2ia4*Ul2(l) » 

U23U  )-L22{n*tAAiI.2,3)-L21(I  )«U13(I)} 

U24il J-L22( 1 >*(  AAl 1,2,4 )— L21il )*U14{1 ) ) 

L31U>«AA<  1,2,1  J 

L32  ( I )- AA ( 1 , 3 .2  HJ1 1 1 1»U12 <11 

133(1 !»l./lAAlI,3.3  )-L31 ! 1 **U13( I  )-L32 ( I )*U23(I  U 
U34  (  I  )«L33.  I  >■<  AA l 1 . 3 , 4  )  -L31  (1  1*1114  ( I  ) 

1  -L32(l  )«U24(in 

L4KI  )-AAil,4.1i 
L42U  )-AA,  1,4.2  J-L41U  >*U12fn 
L43(I  >-AAi  1,4,3^141(1  )*U13(I  M.42U**U23(I> 
L44a>»i./uAii.4,4)-L4ia>»una> 

1  -L42<n*t;24a>-L43U>*U34{J)  > 

SOLVE  FOR  INTERMEDIATE  VECTOR 

0X1-L1KI  >«RHS(I.J.D 

DX2-L22 ! I i» ( RMS  - l.J,2)-L21(I  )»0X1 ) 

DX3-L33! 1 i«(RHS( 1.J.3I-L3111 >*DX1 
1  -L32I I  )*DX2  ) 

DX4-L44( I )■ ( RHS ( 1 , J.4  1-141 ( I )*DX1 
1  -142(  1  J«CX2~L43(  I  f»OX3  ) 

RH$a,J.4)K)X4 
RHS ( 1 . J . 3 i-DX3-U34 ( \) *0X4 
RHS( I,J,2>-OX2-U23( 1 )*RHS1 I,J,3 J 
1  -U24<I>»0X4 

RMS{1,J,1)-0X1HJ12(  I  1*RHS ( I ,  J ,  2  ! 

1  -013(1  )«RMS(I.J.3)-U14(1)«DX4 


Tf  <J  tQ. Jill  CO  TO  1 

-  COMPUTE  GAMMACI ,J)  (SEE  NOTES  FOR  DEF.) 

DO  4  I4>1.4 
DO  4  1-2. Ill 

DX1-L1K  1  >*CC<  I.l.M) 

DX2-L221 I >*(CCt I.i,M>-L21( 1 )*DX1) 

DX3-L33 ( I >• <  CC' 1 . 3 ,N)-L31 ( I  1*0X1 
1  -132(1 >*DX2) 

0X4*4.44 (  I  )*(CC<  I  ,4.MJ-L4im*0Xl 
1  -L42( I  )»DX2-4.43(  I  )«DX3 ; 

NRKt I ,4,M )«0X4 

MRK ( I , 3 , H )-0X3-U34( 1 )*DX4 

KRK(1.2,M)-0X2-U23(I>*MRKII.3.M) 

1  -U24t  I  )»DX4 

MRK  ( 1 , 1  ,H  )-0Xl-U12  ( 1  ••MRKU.2.M) 

1  -U13U  >*WRK(  1,3, M) -014(1  >*DX4 


COMMON/OUT/  RR<  IM,  4 ,4  ) ,  RP1  (IM,  4. 4  ! ,  RK1  dM,  4. 4  ) 

C 

REAL  LI 1 . L2 1 . L22 . L31 . L32 . L33. L41 , L42 , L43. L44 . 
U12.U13.U14.U23.U24.U34 

C 

C  COMPUTE  VISCOUS  JACOBIAN  MATRIX  ’ R ‘ 

jpi-jn 

JMl-J-l 

IF  <  J  .GT.  2  )  GOTO  100 
CALI  CWATSfJ.SR) 

Call  ckatsuhi.rhi) 

GOTO  200 
100  DO  11  M-1.4 
DO  11  L— 1 , 4 
DO  21  1*2, IL1 
RMUl.L.M  -  RR:  I ,  l  ,M  i 
RRd.L.M/  -  RPltl,L,M> 

U  C0MT1AJE 
C 

200  continue 

CAU  CMATSC JP1.RP1  I 


DO  2  M-1.4 
DO  2  1-2. IL1 

AA(I,L,M>-2.*RR<I,l,M 

BBd.L.Mi— t .5* A 1 1 . J-l.L .M)+RM1(  I  .L.Ml  ) 

CCf I, L.N  >— .$*A( I , J+l.L ,M)-RP1; 1 ,L .M ) 

2  CONTINUE 

-  ADD  IMPLICIT  OAMPING  - 

DO  3  1-2. IL1 

MISP-SPEC7 '  I .  J '*<Nr*WPI*PSMU( I. J? ' 

AA  d  ,  L  ,  l  i-AA  <  I  .  L  ,  L  *2  .  -MISP/XJACC  I  .  J  > 

BB  (  I .  L  .  L  l-BB  d  ,L.l  )-Ml  SP/XJACl  I ,  J-l  :• 

CC(I  ,L.L  i-CCll.L,L>-WISP/XJAC(l, >1 1 

3  CONTINUE 

-  MULTIPLY  BY  0TAUII.J1  - 

DO  A  M-1.4 
DO  4  1-2, IL1 

AA!!.L,M)-DTAUd.JI«AAf!.l.*0 
BBd.L.Ni-OTAU.  I  .  J>*BBd.L,M 
CCd.L.Ni-DTAUd  ,  J}*CCll.L.M) 

4  CONTINUE 

-  ADD  IDENTITY  MATRIX  TO  AA  (DIAGONAL! 

DO  5  1-2. IL1 

AA(  I.L.L/-AAII.L.LK1.0 

5  CONTINUE 


C  SUBROUTINE  "BNDRY"  IMPLEMENTS  BOUNDARY  CONDITIONS 
C  CASE  :  VISCOUS  FLOW,  AIRFOIL  C-CRIO 
SUBROUTINE  BNORY 
C 

PARAMETER*  IM-24?  .  JM-100 ) 

COMMON  /f LOMV  /  Ul IM,JM),V(IM,JM) .P'lM.JM), RHO(  IM, JM ) , 

1XMU  < I M , JM ) , EDDY ( I M . JM ) 

COMMON  /GRIO/  XUM.JM),YMN,JMl,XXI(IH.JM).rXIUM.JM>, 
1XET  A !IM . JM i , YET  A ( IM . JM ) . XJAC l IM , JM  < , S ( IM, JM ) , SSI l IM  t 
OR WO*  /PI/  IL.JL.ILE.ITEL.ITEU 
C0»40N  /P2/  GAM. PR.PRT.XM1, RE, TW, SI, ALFA, ANGLE 
COMMON  /HI SC /l LI .IlJ.ILj.JLl. JL2 . JL3. ILEP1 . ILEM1 . 

-  ITELPI.ITELMI, ITEUPI , ITEUM1 .GAM1.GAH2.GAM1 I .GXM.S1P, 

-  PINF.SlNA.COSA.PRI.PRTI.REI.XL.XLl.XLM.pl 
COMMON /DUMMY  '  TEMPMM.JM.4j 

COMMON /DX  OX 1 . 0X2 . DX3 . DX4 . DX5 . DX6 . 0X7 . 0X8 . OX? , DX10 
COMMON/BNO/  NBNO.XMREf  .TREP.TUF  . CV.CR.CT.DLL. LI. L2, 13. L4 


C  DOWNSTREAM  BOUNDARIES  U1-0..XIMAX!  :  SUBSONIC  OUTFLOW 
C  PEXIT  SPECIFIED.  EXTRAPOLATION  FOR  RHO.U.V, 


DO  12  J-2.JL1 
U( 1. J)-U(2. J j 
v: l.J)-V(2,J; 

P! l.JJ-PINF 
RHO: l.J)-RH0(2.J) 

EDDY l i. J  >-E00Y(2 , J ) 

12  COMTIRIE 
C 

DO  22  >2,JL1 
Ul IL, J>«Ul IL1, J 1 
V(lL,J»-VdLl.J! 

P ( I L , J )-PI NF 

EOOYi IL, J>-EDOY( IL1.J) 

RMOdL.  Ji-RHOMLl.J. 

22  CONTINUE 


-  FTAMAX .  FREKTREAM  VALUES  SPECIFIED 


00  25  1-l.iL 
U(I,JLf-COSA 

vii.jlUsina 
P( 1 , JL J-PINF 
RMOM.JLI-l.O 
25  CONTINUE 


C  KEN  BOUNDARY  CONDltlOHS  FOR  SYHETRICAL  AIRFOIL  IN  THE  MAKE  AT  ALFA 
C  VC  1 . 1 1  •  0.0 

C  V(K,H  •  0.0 

3  CONTINUE 

COOTUL(l)-EODY<i»l) 

C  AIRFOIL  SURFACE:  U-V-C.O;  OT/DETA-O.  (ADIABATIC  NALL  i ; 

C  DP/DETA-0.0 

DO  4  I-ITELP1.ITEUN1 
Ud. 11-0.0 
V'I.l>-0.0 
Pd.i  >-P(  i.2) 

OXl-GXM- <  — P( 1 , 3 ) /RHO  I I , 3 1+4 .*P( I . 2 ) /RHO( 1,211/3.0 
RHOd  ,  lt-G*#*»PU,lJ/OXi 

4  CONTINUE 

IF  f  n»HD  .BO.  0  )  GOTO  7 
C 

C  BOUNDARY  CONDITIONS  FOR  SUCTION  ON  UPPER  SURFACE 
C  DXl-THtTA 

XMfl  -  KMREF/XM1 

TRS  -  SORT (  TREF/TINF  ) 

VIN  •  CV  •  XMR  •  TRS 

AIN  -  ABSI  XIL3.1)  -  XU4,1)  \ 

AOUJ  -  ABS<  Kll2,ll  -  X<  LI . 1 )  ) 

DX2  -  0.0 
0X4  -  0.0 
0X5  -  0.0 

I  DO  5  I-L3.L4  .  . 

oxi  -  (  Yiin.u  -  Yd-i.i)  >  /  <  xn+i.n  -  xa-i.i!  i 

0X1  -  ATAN(DXl) 

IF  (  NBNO  -EC.  3  )  GOTO  17 
U(!,l>  •  VIN  •  SIN(DXl) 

V(I.l)  -  -VIN  *  COSIOX1) 

17  0X2  ■  0X2  *  RHO 1 1 , 1 ) 

C  OX3-GXM«<-P(1.3)/RhOU,3»+4.»P(1.2)/RHO{I.2))/3. 

C  0X4  -  0*4  +  0X3 

C  0X5  -  0X5  P(I,1> 

5  CONTINUE 

C 

XU  •  ABS'  FLOAT l  L4-L3+1  )  ) 

C  TAVG  •  DX3  /  XU 

C  PAVG  -  0X5  /  XU 

RAVG  •  0X2  /  XU 
C  HOOT  •  RAVG  A  AIN  •  VTN 

VOUT  -  AIN/(A0UT»SIN(0EL))«  VIM  /  CR 

C  BOUNDARY  FOR  LONER  SURFACE  EJECTION 
IF  (  OND  .EQ.  2  i  GOTO  7 
C 

DO  4  I-LlfL2 

RHO (1,1)  •  RAVG-CR 
C  PI  1,1 )  -  CR-CT-PAVG 

C  T  -  CT  •  TAVG 

Utl.ll  -  YOUT  •  COS (DEL ) 

Vd.li  -  “VOUT  •  SIN  (DEL  ) 


-  TRAILING  EDGE  - - 

7  UdTEL.n-O-O 
V(ITEL.1>*0.0 
UIITEU.D-0.0 
VtITEU,l)-«.0 
PdTEL.l)-PUTEL,2) 

THGXwil -p7|TEl!3  ^ /RHO  dTEL,3  )*4.»P  ( ITEL.  2 ) /RHOdTEL ,  2 ) ) /3 . 

TtSxiIf-i:iTfiT3WRHmiTEU,3)44.*PfITEU.2)/RH0dTEU,2)  1/3. 
RHO( ITEU.D-GXM-PI ITEU.ll/T 


SUBROUTINE  *TURB'  EVALUATES  THE  TURBULENT  EDDY  VISCOSITY 
USING  THE  ALGEBRAIC  MODEL  OF  BALOMIN  &  LOMAX  AMO  THE 
TRANSITION  MODEL  OF  DHAMAN  i  NARAS1MHA. 

LIST  OF  SYMBOLS 

EDDY  :  TURBULENT  EDOY  VISCOSITY 
XMUTI  :  EDOY  VISCOSITY  FOR  INNER  REGION 
XMUTO  :  EDOY  VISCOSITY  FOR  OUTER  REGION 
F  :  FUNCTION  IN  OUTER  FORMULA 
GAJ*U  :  TRANSITION  FACTOR 

TAUM  :  SHEAR  STRESS  AT  THE  NALL  _ 

JLAST  :  SPECIFIES  THE  EXTENT  IN  THE  ETA-OIRECTION  TO  IBttCH 
Tiff  EDOY  VISCOSITY  IS  COMPUTED. 

I  PLOT: 

-  0  NO  PRINTED  OUTPUT  IS  PROVIOEO 

-  1  PRINTED  OUTPUT  IS  PROVIDEO 

SUBROUTINE  TURg  UPLOT.  IPL0T1 ) 

PARAMETER! IM-2Y4 ,  JM-100 1  _  _  _ 

COMMON  /FLOHV/  Ul  IN.  JH ) , V(  IM,  JMI  .PdN,  JM)  ,RHOl  IN,  JM) , 

lXHUdM, jnkEddyc in, jmi  m  ^ 

COFWON  /GRID/  XdM.JMJ.YdM.JMJ.XXHIM  JMl.VXI(IN.JN), 
1XE7A I IM. JM ) , YETA( lfc, JM I , XJa6 I  IN, JM J .SllN, JH ) , SSll IM i 
COMMON  /PI/  IL.JL.ILE.ITEL.1TEU 
COMMON  /P2/  GAM.PR,PRt,XM1.R£.TM,S1,ALFA.ANGLE 
COMMON/MI  SC-' I  LI,  IL2  .  IL3.  JLi.  JL2  .JL3.ILEP1, 1LEM1 . 

-  ITELPI.ITELM1.ITEUP1.ITEUH1.GAH1.GaM2.GAH11,GXM.SIP, 

-  PINF.sIliA.  COSA.PRI.PRTI.REI.XL.XLl.XLM.pl 
COFMON / TURB 1 / 1 T R SU . 1 1 R SL . i MKST , 1 HKE , JL AST . 

-  _  ^  JWELAX 

COW«N /DUMMY/  TEMPI  IN.  JM,  4)  _  rM_  ^ 

CO*«N/TURB2/XHUTItJM>,XMUT0(JMJ,O(JM>,Nl2*JH),F(2*JM>, 
GAMMAdM) 


Appendix  G:  Hyperbolic  Grid  Generating  Code. 

Fortran  Listing 

The  attached  -fortran  listing  is  the  original  code 
used  to  generate  the  grids  in  this  work  as  supplied  by  the 
Air  Force  Wright  Aerodynamics  Laboratories,  Flight  Dynamics 
Laboratory,  Computational  Fluid  Dynamics  Group.  The  code 
was  developed  jointly  by  Dr.  Timothy  Barth  and  Dr.  Don 
Kinsey  an  described  in  reference  (19).  The  code  was  run  on 
the  Cyber  computer. 
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PROGRAM  MAIN 


I  C 

i  c 
,  c 
c 


c* 
-  c 

:  C 

•  c« 


1000 

1C 


20 


.  c< 
I  c 

:  C 

c« 


!  C 
!  C 


THIS  PROGRAM  GENERATES  HYPERBOLIC  C-MESHES  ABOUT  AIRFOILS 
WRITTEN  BY  TIM  BARTH 


OPEN Ifc.F I LE«' OUTPUT' 
OPEN (5. FILE-’ INPUT' 3 
CALI  STARTE 
CALL  FOIL 
CALL  PARAME 
CALL  SIRETC 
CALL  MAKE 
CALL  GRIOGE 
STOP 
END 


SUBROUTINE  STARTE 


COMMON  /BASE  /  JHAX .  KHAX ,  P I  ,  SBOOY  .  SHU .  SMUV  ,  NBOO  Y  ,  NCLUST 
COMMON  /  VARS/X  i  301  ;.Y.  301;.  XXI  1 301  j .  XETA  ( 301  l.YXI  1301 ). 

1  YETA ; 302 ;.R  302.100  . SCALE i 200  . SR t 302 . 2 i . VOl / 301 
common  /units  bodyun.gridun.docun: 

COMMON  /FNAMES  BOOYFI .GRIOFI .DOCFIL 

COMMON  /STRET  CS : 100: .CNTRLP’ lOOi ,NBP( 100) .ARCLEN1301 ) 

CHARACTER-80  BOOYFI. GRIDFI. DOCFIL 

INTEGER  BOOYUN-GRIDWI,DOCUNI 

SET  UP  DOCUMENTATION  FILE 


FORMAT  U> 

CONTINUE 

MRITEH.*)'  INPUT  OOC  FILE  NAME 
READt  5 . 1000 1D0CF IL 
DOCUN I  -  11 

OPEN! 11. file*oocfil l 
CONTINUE 

WRITE! *  .*  )  *  INPUT  GRID  FILE  NAME 
READ! 5.1000) GRIDFI 
CRIDUN  -  9 

OPEN)  9.  F1LE*GRIDFI  ) 

RETURN 

END 


SUBROUTINE  FOIL 


COMMON  /BASE/  JMAX .  KMAX .  PI  .  SBOOY .  SMU,  SMUV  .  NBOOY  .  MCLUS  T 
COMMON /VARS/Xi  301..  Y ,  k)l  XXI 5  301  -  .  XET  At  301 :  .  YXl  ( 301 ) , 

1  YfTA;301  '  .R(  301. 100.  .SCALE;  100  >.SfU  301.2).  YOU  301; 
COMMON  /UNITS  ,  BODYUN.GR  I  DUN.  DOCUN I 
CO*P«ON  /FNAMES  BOOYFI .GRIDFI .DOCFIL 

CO^ON  /STRET,  0Sil0C'.CNTRLPilOO).N6P<lOO).ARCL£N(3Ol) 

CHARACTER.80  BOOYFI .GRIDFI .DOCFIL 

CHARACTER* 1  ANSWER 

INTEGER  BOOYUN. GR I DUN. DOCUN 1 


SET  UP  FILE 


FORMAT! A) 

WRITE**.*  ’  00  YOU  HAVE  BOOY  COORDINATES  ON  FILE  fY/N?’’ 
READ1 5 . 1000 ) ANSWER 

1 F  i  ANSWER  -EO.  ’ Y ‘  .OR.  ANSWER  .EQ.  ’Y* 3THEN 


WRITE <*.•>'  INPUT  BODY  FILE  MANE  ' 
j  REAO'5. 1OOO3B0OYF1 

BOOYUN  -  10 
OPEN! 10 . FI LE«BOOYFI ) 

!  5  CONTINUE 

KOUNT  -  0 

I  10  CONTINUE 

READ!  BOOYUN. *.EN0-100)X(K0UNT*1 ).Y(K0UNT*1  • 

KOUNT •MOUNT  *1 
GC  TO  10 
100  CONTINUE 

NBOOY  -  KOUNT 

WR l T E I DOCUN  I . 2000 ) BODY F I . NBOOY 
WRITEI *.2000. BOOYFI  .NBOOY 

2000  FORMAT  I  BOOT  FILE  WAS  USER  INPUT  '.AT.'  WITH' , 15, *  POINTS*' 
CLOSE  (BOOYUN 
C 

ELSE 

WRITE!*.*  i  ’  •••••••mnaCAOOXX  AIRFOIL******"********  ’ 

write* *.*•'  •••-•••••closed  te  normal  I  zed*********** ' 

WRITE ( * , •  ,  •  INPUT  XX ' 

«EA0'6.*1TMAX 

WRITE!  OOCUN I  .  »  ’  '  NACAOOXX  AIRFOIL;  XX  -  \TKAX 
THAI  •  TMAX/IOO. 

NPTS  *  300 
NIMALF  -  NPTS/2  ♦  1 
NIHM  -  NIHALF  - 
XINCPT  •  1.008930*113*5 
DELX  «  1. /FLOaTiNIHH 
XX  -  1.  ♦  DEL* 

DO  20  1-l.NIMN 
XX  -  XX  -0ELX 

XI  •  .  5*XINCPT*I  1 .0  -  C0Sf3.1*l«2*5»*KXn 

;  xm  -  xi 

YU  i  -  -S.*TWAX*(0.M*9*S0RTfXl  )  -  .  12**X1 -O. J51**XI*X1 
S  ♦  0.2B43*X1**J  -0. IQ15»X1***j 

I  30  CONTINUE 

I  DO  21  1-I.Nim 

!  n  -  nihalf  *  i 

i  IR  -  NIMALF  -  I 

XUI *  -  XUR 
I  Y'TI  >  -  -V! IR 

I  21  CONTINUE 

1  NPTS  -  NPTS  ♦  1 

00  22  1*1. NPTS 

XII  1  -  Mi  ) /XINCPT 
YU  )  *  Y  (  J  J/XINCPT 

-2  CONTINUE 

NBOOY  -  NPTS 
ENDIf 
RETURN 


subroutine  parahe 


COMMON  base  JMax.Kmax.P!  .S  BODY  .SHU.  SHU'*  .  NBODy  . NCwUS* 
common  vaps  •*. 3c: . .>  3c:  .xxi  3c:  . a e t a  3c:  **:  jc:  . 

:  yeta  3o:  ,s.3c;.ioo, .sca.e  jog. .sr.3c:.2.,vou.3o: 

COMMON  /UNITS  /  BODY  UN  .  Gfi  IDLX . OOCUNI 

COMMON  /f NAME S.  BOOYPI .GRIDFI .DOCFIL 

COMMON  ■■ST  RET ,  OS \ IOC  : , CNTRLP l  100  J . HBP>  100  ) .ARCLEN; 301 

DIMENSION  XSUOC 

characters  LOWER. UPPER. XXXXX 

CHARACTER. 80  BODYE’ .GRID'I .DOCFIL 

INTEGER  BOOYUN . GRIDUN . OOCUNI 

LOME*  *  .OMfP 

UPPER  -  'UPPER 

FIND  L£ 

XHIN  *1000. 

DO  *87* j*i . N800Y 

I F  •:  X  i  J  ;  .  lT  .  XMINITHEN 
XHlN  •  X.  J  • 

JM I  N  ■  .■ 

ENDI F 

*87*  CONTINUE 

JLt  -  JMIN 


i  C 


C 

c 


*e7* 

*875 

C 


NCLUST  •  0 

WRITE «  fe  .• ■ ' ■•••AIRFOIL  LOWER  SURF  ACE***** ' 

CONTINUE 

WRITC.fc.*  INPUT  x  LOCATION.  MIN  ARCLENCTH  SPACING . * . 

RETURN  TC  CONY INU: ' ‘ 

READ1- 5  .*.  tNO«20  ■ XS. NCLUST *1  .DS>  NCLUST *1 
NClUST  -  NCLUST-I 
GO  TO  ]C 
REMIND  5 

BRUTE  FORCE  6U88LE  SORT 
D09eY5  n-I.HCIUST 

DC967*  M-l . NCLUST 
IF ' XS • M  .  .lT . AS  N  •  iTHEN 
TEMP’.  •  XS'H 
TEMP2  -  DS  ** 

XS.M  •  XS  N 
DS  M  •  OS:N 
XS: N  ••  TEMPI 
DS  N  «  TEMP2 
ENDI  c 
comikut 
CONTINUE 

FlNO  NEAREST  BODY  POINT 


00*873  N-i. NCLUST 
Rmax  -  l.te 

00*872  J*1 .JL: 

RR  •  ABS  x S • N  .-x  j 
I f i RR  .c v  rmax  Then 

RMAX  •  RR 


J  J  •  J 
ENOIF 

*872  CONTINUE 

CNTRLP  n  •  jj 
*873  CONTINUE 

nlOmER  •  NClUS’ 

WRITE , fc  .*  ■ '••••AIRFOIL  UPPER  SURFACE***** ' 

30  CONTINUE 

WRITE- t  •  •  INPUT  v  LOCATION.  MIN  ARCLENGTW  SPACING.'. 
>  RETURN  TO  CONTINUE ' * 

REMIND  5 

READ  5,-.iNC-AC  r$  NCLUST •!  . DS ' NCLUST- 1 
NCLUS’  -  nC^UST-1 
GC  TC  3C 
fcC  REMIND  ? 


BRJTE  FORCE  BUBBLE  SORT 


DO*87 1  N-NLOMER*: . NCLUS* 

D0*8 7o  m»nl Om?p* 1 . nClUS’ 

IF  XS*M  .G*  XS  N  i I  Me  N 
TEMPI  ■  XS'* 
te*p;  .  DS  y 
I s  M  •  *S  N 
OS-M  -  D;  N 
xj  k  ■  rc m: : 
cs  »•  -  r5MP; 
eng:  ; 

*B7C  CONTINUE 
*Sd  CONTINUE 

1  C  FIND  NEAREST  BOOT  POINT 

,  c 

DO*BF«  n.n.0mE«*1, NCLUS" 

»mu  .  ;  ;f 

*  DO*8fc8  .■  d.NBOC- 

RR  *  ABS  *S  v  -x  . 

J  F  RR  . . * .  Rmax  TmEN 
•max  •  RR 

1  JJ  •  J 

ENOIF 

|  *«*8  CONTINUE 

CNTRLP  N  •  jj 
(  *08*  CONTINUF 


I 

I 


I 


APCLtN  1  «  C 

00*868  I-i.NBOO' 

aRclEn  -  aoclEn  i  - 
*.  SORT '  !  *■  I --X'  1*1  ;  |**2  *  ‘  Yi  1  )-ri  I*lil«2  < 

*m  CONTINUE 

c 

c 

MRTTE'DOCUNl.*  •*•***•  CLUSTERINGS  *»»•***■  ' 
DO* Sfc*  J-2  NClUS* 

IBi  •  CNTRL®  : 

IB2  •  CNTRLP  IM 
XXXXX  •  jPPf  R 

Ic  .LE  NLOMER.XXXXX  -  LOWER 

ALENGT  «  aRClFn  | E 1  -ARCLEN  1 32 

MR  j  T  f  t . 2000  »  i&2  . A  16,  .ALENGT .XXXXX _ 


2000 


FORMAT !  *  INPUT  HUMBER  OF  POINTS  FOR  THE  INTERVAL  *  - 
)  F 12  ■  t> .  '  TO  *  .F12.4./ . 

>  '  arclemgth  -•  .fu.fc, ’  on  The  '.a.'  surface1' 

READ ( 5 . • 'NBP 1 J-l 

WRITE :OOCUNi .3000)X<rB2. .X(IBl i.«P( I- l j . XXXXX . OS ( 1 

>  CS.I-1 

3000  FORMAT <  1  HUMBER  OF  POINTS  FOR  THE  INTERVAL  X  -  \ 

>  FU.4,t  TO  X  *\F12.A.  V  IS  \15, 

>  ON  THE  * . A, *  SURFACE' . 

>  1  MIN  SPACING  ON  ENDS  ARE \ FU. 7 .  IX, F 1A .  7  > 

1WS  CONTINUE 

RETURN 

END 


SUBROUTINE  HAKE 


COMMON  /«  ASE/JMAX .  UMAX  .PI,  SBODY .  SMU ,  SHUV .  NBQOY  .  NCI  US  T 
COMMON 'VARS /X!  301  ■  . V ( 301 1 . XXI i 30 1  1 . XET Av 301 ! . YXIt 30 1 i , 

1  YET*  >  301 .  .R.-  301. 100  '.SCALE  ( 100  »  .  SRC  301 ,2  ; .  YOU  301 ; 
COMMON  /UNITS  -  BCD YUN . &R I DUN . DOCUN I 
COMMON  /FNAMES  BOOm  .6*lOfl  .OOCFli 

COMMON  STR£T  DS  100..CMTRLP  100  , NBP' 100 . . ARClEN ; 301 

CHARaCTER»1  ANSWER 

CMARACTER*80  BOOYFI .criofi .docfil 

INTEGER  BODYUN.GRIDUN.DOCUNI 

COMMON  /BOO'  XlNT£R'301i,YiNTER<  301 ) ♦ I  MAX 

COMMON  /S080/S08 

DIMENSION  KMAKEI J01),YMaKE(301).XX(10>.YY{10) 


MR  I T  E  <  A . •  1  *  ■••••OUT  ER  OOMaIN  LIMITS***** 

HRITE- A.*  '  INPUT  DISTANCE  TO  OUTER  BOUNDARY  * 

READ  5.* 'SOB 

WRITE' DOCUN 1 . • ‘ ‘  DISTANCE  TO  OUTER  BOUNDARY  .  '.SOB 
HRITE  A.*  INPUT  NUMBER  OF  POINTS  IN  THE  HAKE  REGION1 
READ! 5,*  'NHAKE 

HR1TEIOOCUNI  .*  )  '  WAKE  ■  '.NHAKE 


C 

c 


> 


c 

r 

c 


SLOPE  ESTIMATION 


SLOPE 
HRITE. A. 
HR I T  E  <  A , • 

*  rw"i  vn 


AT  AN? 'YlNTERflMAX' -VINTER : IMAX-1 ! 

XINTER  I MAX  -XINTERi IMAi-l . 
ATAN2' V I  NT  Eft  1  -vJNTER  2  . 

XINTER. 1  -XJNTER'2 
T  AN  i  .8*1  THETAWHETA2  - 

‘RAILING  EDGE  SLOPE  •  '.SLOPE 


DO  YOU  WISH  TO  CHANGE  SLOPE  ESTIMATION  YY/N)’  ' 
READ' 5. ' ■ A  * ’ 'ANSWER 

I F ( ANSWER  -EO.  'V  OR.  ANSWER  .EQ.  ’VMTMEN 
MRI T E i A . * i ’  INPUT  NEH  SLOPE-  7 
READ! 5 . • I  SLOPE 
END1F 

Y OPR  I M  .  SLOPE 
Y1PRJM  -  0.00000 

START  CUBIC  PATCH  at  X/C-1.05.  END  CUBIC  AT  X/C-1.5. 


c 

c 

c 

c 


c 


c 


xo  »  l.oic 

YO  •  vjNTIRCli  -  VOPRIM* ' xo-XINTERt 1 ) : 

XI  •  1.2 

Y 1  -  2  *Y0— VJNTER' 1 1 
YINTER  1  *  V0PR1M* I XO-XINTERt l M J /2. 

HRI TE ( A . •  •  ’  XO. VO. XI. vi  .XO.TO. XI. Y1 

FIND  COEFFICIENTS  A.B.C.O  FOR  POLYNOMIAL  Y  •  A  X 1 3  *  B  X|2 


10 


11  •  xo  -  XI 
T2  •  X0**2  -  Xl**2 
T 3  •  XO** 3  -  Xlw*3 
TA  •  YOPRIM  -  Y1PRIM 
T5  ■  VO  -  VI 
T  L 1  •  3 . *T2 
TL2  •  2.*T1 

Tl3  •  3.*T1*X1*«2  -  T3 
TLA  -  2.*X1*T 1  -  T2 
TL5  -  V1PRIM.TI  -  T5 
D1  •  TL1*Tla  -  TL2*TL3 
IF;  ABS.D1  ;  . LT .  1.E-2A  THEM 
MRITElA.*' 1  CAUTION  MAKE 
01  -  1 . t “2A*  SIGN  1. .01 


A  -  1 T**Tl a  -  TL2*T15>/Di 
02  -  U* 

IF  ABS  C2  -LT.  1.E-2A  THEN 
HRITE  >  A  •  '  CAUTION  HAKE 
D2  •  l.E-2A*SIGN< 1..02 


END1F 

B  -  (TL5  -  A-TL3I/D2 
D3  ■  T  1 

IFt  AaStD3)  .LT.  l.E-2A)TH€N 
HR  I T  E • A  .  •  '  CAUTION  HAKE 
03  -  1. E-2A*S1GN. 1. .03 


CALCULATION  D1  IN  ERROR  ' 


CALCULATION  02  IN  ERROR  ‘ 


CALCULATION  03  IN  ERROR  ' 


ENDIF 

C  •  'T5  -  A*T3  -  B*T2)/D3 
D  ■  y  1  -  A* X 1** 3  -  B*X  1**2  -  C*X1 
MR  I T  E ! A . • *  '  A.B.C.O-  .A.B.C.O 
EPS  -  EPSlL'SOB.O.O.OSm,MMAU,.00001,4C.IJ 
XMAKE 1 1 ’  •  XlNTERfl S 

VMAKE'l)  -<Y1NTERU>*  VJNTERUMAX  U*O.S0 
DO  10  K-2.NMAKE 

XMAKE 1  K  •  -  XMAKE»K-1>  ■*  DS '  1  *•  <  1  .  *FPS  1 K-2  ' 

IF  I XMAKE ’K  .LE.  XO I  THEN 

YMAKE'K  -  VMAKf  1  *  YOPRIM*!  XMAKE  (K  l-XMAXEU  >  • 

ELSE  IF ’  XMAKE 1 K  .GT.  Xl'THEN 
VMAKE ! K  <  •  Y 1 

ELSE 

2  •  XMAKE!  K! 

VMAKE  <  K  i  •  A*?** 3  *  |*2*«2  *02  +  0 

ENDIF 

NSITE  !  A  ,*  IK,  XMAKE  IK  )  .VMAKE  IK  ' 

CONTINUE 


PIECE  EVERYTHING  TOGETHER 

0OT8A*  J-l. NHAKE 

X  I  -•  (MAKE  NHAKE “I *1 
Y  I  '•  VHAKE - NhAKE-I *1 


C  X  ♦  D 


98b*  CONTINUE 

DOS8fc3  I-NMAKE *1 .  NHA*E«1*IMAX 
»  !  •  XINTER  :  -  NMAKE  *  1 
v  I  -  vlHTEfi  :  -  nhakE  -  1 
98fc  3  CONTINUE 

DO<fBb2  J  -WHAX.  £  *1  * J  MAX -2 .  N*tAK£  *•  3*1 MAX^NWAXE  ~2 
X  I  *  XMAM  i-iNHAN.E*l*lKA»-3 
N  I '■  -  VNAKfc:  1-1  NNAXe-  l*!MAX-3 
*6fe2  CONTINUE 

JHAI  -  2»MHAKF*jHAX-2 
JTAiLl  *  NMAKE 


jta: 

2  -  JMA 

A-jTAlLl-1 

hp  :  t 

t  • 

JH  A  >  = 

JMA  X 

hp;  t 

t  .  • 

jtaili  ■ 

jtaili 

HP-  - 

t  • 

jtai_;  -  1 . 

jt  a: 

hp;' 

OCCUR . 

,  *  JMA* 

«  . JMA  ’ 

hr;  t 

.»•’  Jl  A  I  i_l 

-  ‘  .  J I A 1  c  1 

WRIT 

IDOCUNI 

.  •  J  1  JIAU2 

•  '.jtail: 

END 

'UNCTION  EPS S w  EMX. EMIN. DFH.NPT.PPCC. ICC. 


THIS  SUBROUTINE  APPLIES  A  NEWTON-R aphSON  ROOt -FINDING 
TECHNIQUE  TC  FIND  A  VALUE  0'  EPSILON  FOR  A  PARTICULAR  USE 
OF  THE  EXPONENTIAL  STRECHJNG  TRanSFORhaTI ON . 

IS  TOTAL  ARC  LENGTH  ALONG  COORDINATE 
N  :s  STARTING  valU:  0s  arc  lengt-  SUCH  as  o.o 
IS  SPECIFIED  I N !  ’  I A ».  INCREMENT  0*'  ARC  lENGTh 
IS  NUM5E F  Or  POIN'S  AtONC  COORDINATE 
C  IS  ITERATIVE  ERROR  BOUND.  E.G.C  C . OOOC2 
IS  MAXIMUM  NUMBER  OF  ITERATIONS 

ll  if  nCa..*:  initial  guess  fof  eps  is  used 

If  NCAU  .GT.  1 .  PREVIOUS  EPS  USED  AS  INITIAL  GUESS 


FH*L-fHX 
FMIN.-FMIN 
DCM  -DFm 
FPCC^-FPCC 
ICCl-ICC 


FNPTK2-NPt-2 
I f  '  NCALL . EG .  I 


EPS-1 FMXL/DFMI 1.0  'FNPTH2  -l.C 


DC  3  NIT-1.JCC. 

EPl-EPS-i.C 
EPITM-EP1—FNPTT42 
REPS-1 . 0  EPS 
DFmO;-OFM-»REP$ 

F-FMXL-FMiNL-OFHOE*' EPlTN-fPi-1 . 0 
IF , ABS  F  .LT.FPCCw  GC  TO  * 
DFMOE2-OFMOE-REPS 

FP*-DFM0E2»  1.0-EP1TN** EPS-FNPTM2-1.0 
DC  •  F/FPn 


EPS-EPS-f/FPn 

CONTINUE 

EPSIL-EPS 
WRITE  1. IOC 
RETURN 

EPSIL-EPS 

RETURN 

FORMAT-.  .'*2m  EXCEEDED  HaX  NO. 
FORMA-  7-  FPSI,  *■  .  :1C  .5.5/  .7- 
12H  ITERATIONS. 


of  ITERATIONS  IN  FPSIL. 
AND  •'«  .  f  12.5 .5/ .!*•  aftEp 


SUBROUTINE  STRETC 


COMMON  BASE  •  JHA>. .  AHA  A  .  P  I  S60D’  .  SMW  .  SMlT*  .  HBODf  .  NClUST 
CO**<On/vaRS/*  301  .V.3C1  .XX!  301  .XETA  301  .TX1T301:. 

»?ta  3c:  . R  3::. loo  .scale  ic:  ,sc  3 o:.2  .  vol-jo: 

COMMON  UN  I*:  50D*-uh.GR10jN  OOCun; 

COMMON  tkAMts  BOC'F I . GPIDF I . DOCF I _ 

Common  ST»"  jS  iQC..CNTRwP  100  .  NBP  100  .  ARC,EN'.  301 
CmARaC’ E R- 1  ANSWER 
O’  RAC’  ER*  £0  BCD'':  .GRIDF1  .OOCfiu 
I NT EGEP  BODTUK.GRIOUN.DOCUn; 

COMMON  BOD  /INTER. 301  .  Y  i  h  7  6  R  ’  3C I  . IHAX 
DIMENSION  S  301  .ARCDIS.3G1 


N :  •  i 

D09Bfc  3  N-2.MCLUS*-: 

NODE  1  ■  Cntr.P' n*i 

node:  «  CnTRlP’ n 

alengt  -  arclen-nooe:  -arclEN'.nqoeO' 
dso  DS«N  /ALEnC* 

DS1-  DS' N *  1  /ALENGT 

CALI  CLUST! ARC0IS.DSC.0S1.nl. Hl-NBP'N. ■ 

00*«b0  1 -Nl  *  I . Nl*N8P<  n 
ST-  ARCLEN’NOOEO  *  ALENGTmARCDIS  1  > 
mo  CONTINUE 

N.  -  Nl*MBP'N 
98b 1  CONT I NUt 

ININ  -  i 
IMH  -  H. 

HP  I  T  E i b  .  •  ’  00  YOU  WISH  TENSIONED  SPLINE  FITS  lY'N^' 
READ'S. 1000  J ANSWER 
1000  FORMAT: A 

I F ( ANSWER  .tS.  'N‘ .OR. ANSWER  .EQ.  *N : ITWFfc 
CALL  CSPLIN I S , XINTEF . ARCLEN. X. I MIN. 1  MAX  l.NBODy  1 
CALL  CSPlIN  S . vJNTFp . ARCLEN ,v.IMIN.IMAi.l, NBODy 
Else 

WRITE  b*  ’  INPUT  TENSION  ' 

READ  5  *  SIGMa 

Call  TSPlJn  S  x|N*ep . aRCiEn  *.NBOO'  Tma*. SIGma 
Cal>.  T  S  p  L  I  n  S.vlN'ER.  aRClEn.  •  .NBOO*.  !hai  .SIGma 

ENDi  F 


c 

c 

c 


RETURN 

END 


SUBROUTINE  CLUST {Y.DSO.DSl . JKIN, JMAX  } 


C**** 

c 
c 


dimension  rf30n 
DEi  -  :  jmax-jmin 

SO-OEL'OSC 
Sl^JEl  DS1 

CAk.^  CIUST2  Y  .SC. SI.  JMIN.  JMAX 

out  STEP  CORRECTOR 

ALPH40  -  <T»  JHIN^D-YUMJ#*  )/DS© 

ALPHA’.  -  'V.  JHA*»-Y<  JKAX-1  M/DS1 

SOaLPHAO»OEL/DSO 

S  i-ALPH*  I»OEl  /DS  1 

CAkl.  C*U$T2  Y.SC.S1.  JMIM.  JHAX) 

RETURN 

£nC 


SUBROUTINE  CLUST 2 '  Y  ,  SC. SI, JM IN. JHAX  i 


VINOKUR'S  EW)  POINT  CLUSTERING  FUNCITON 
SHOULD  BE  RUN  DOUBLE  PRECISION  ON  VAX  OR  IBM 


C  Y'Ji  IS  STRETCED  FUNCTION  8ETHEEN  LIMITS  OF  0  AND  1 
C  I.E.  IT  IS  NORMALIZED  ANO  MUST  BE  RESCALED 

C 

CDOUBLE  IMPLICIT  R£AL*8(A-H,0-ZJ 

OIMENS ION  Yili 
DATA  EPS/. 001/ 

JM1-JHAX-1 

JP1-JMIN-1 

OEL-1. /  JMAX-JMIN 

B-SORT(SO»S1 

A-B/Sl 

0A»1 . /A 

V- JHAX  i-l.O 

Y  i  JMI N  -0.0 

I F  <  8.  CT  .  1 .  *EPS  'GO  Tt)  10 
IFlB.CT.l.-EPSJGO  TO  20 
DZ-ASINFB i 
COSOZ-COStDZ : 

CSCOZ-l . /SORT ( 1 . -COSDZ-COSOZ ) 

MO-CSCDZ*  COSDZ-OA 

ZO*ATAN(MO 

0H-CSCD2* i A-COSDZ  )-H0 

OON-l./OH 

DO  1  J-JP1.JH1 

:  Yf  J  ;-«***/ Tan/ 02-, *20. ’-MO  t 
RETURN 


10  DZ-ASIMMF  (  B ' 

COSFCZ-COSMIDZ 
ohacdz-i  . -a-cosvc: 

ASINOZ-A*SQRT(COSHDZ*COSHDZ-1.  i 
00  11  J-JP1.JM1 

U»TANM<  DZ*  ;  J- JMI  N  t«DEL 

11  Y l J  j -U/ i ASlMD2*OMA£OZ*U  > 

RETURN 

20  T  W08MO-2 .  *  <  8  - 1 . } 

ONEMA—1. -A 

DO  21  J-JP1.JM1 
X-' J-JHIN>*OEL 

U-X* ! l.*TN0BH0-ix-.5)»'l.-Xi  I 

21  Yi J:-U/ia*ONEMA»U' 

RETURN 

END 

C— — 

FUNCTION  ASINMF(U' 

CDOUBLE  IMPLICIT  REALMS » A-H. 0-Z » 

DATA  Al. A2. A3. A4.A5/-. 15. .057321428571 4, -.024507294878. .0077424*40 
1899. -.0010794122651/ 

DATA  BO.  B1 .  82 .83. B*/- .  0204176930892  .  .2450272170591 . 1.9*46443322775 
1.-2. 6294547252*1 . 6 . 567*5910963 15 
DATA  U1.U2/2. 782968 11 78603.35. 0539748452776 
IF  IHJ1  1.1,2 

1  UB-U-1. 

AS1NHF-S0RT  I  6  .  *UB  a5*UB*A4  »*UB*A3 i *UB-A2  j*U8*A1  >*UB*1.  i 

RETURN 

CDOUBLE  2  v-OtOC(U) 

2  V-LOO I U  > 

M-l ./U-1./U2 

CDOUBLE  ASINMF-V*OLOC(2.*V  »* » 1 . -*1 .  /V  ) ♦  !  H  B4*M+B3  i-H+87  **M+B1 

ASINHF~V+10G<2.*V  »*(  1  .*-1.  /V  )♦(  (  <  B4*M+83 i***81  >*H*BO 
RETURN 

END 

C-— 

FUNCTION  ASINFtU 

CDOUBLE  IMPLICIT  REAL*8 i A-H . 0-2  * 

DATA  A1.A2.A3.A4.A5/ . 15 . . 05732 142857 14, . 0*8474283464* . 

1-. 05 3337753213.. 075845133582^/ 

DATA  B3 , 84 . 85 . &6  < - 2 . 64493*0468482 . 6 . 7547315*58321 , 
1-13.2055008110734. li. 7260552338351 
OATA  U1 .PI / .26538971*51*4,3. 14159265358581/ 

TFf U.LE.U1 >C0  TO  1 
ue-i.-u 

AS INF-SORT  I *.*U6  i«nu  ( A5*U8*A4  >*UB*A3  l*U8*A2  i*U8+Al  >*U6*1.  • 
return 

1  ASJNF-P)*'  III!  J  B6»  j-fi5  <*LKB*  i*U*83  1*0*1.  »*U-1.  >*U*1. 

RETURN 

END 

SUBROUTINE  CSPL!N(XX  YY,  X , Y ,N1 .N2 ,31 , J2 ) 

DIMENSION  XXM>tYYJlLx(l),Y(l» 

COWON/SOUCH/At  301 1 . 8  ( 30 1 1 . C(  3011  .0  f 301 1 .  f  f 3011 . Hi  301  < 


CUBIC  SPLINE  INTERPOLATION 
X.Y  ARRAYS  ARE  TO  BE  INTERPOLATED 
YY  ARE  FOUND  INTERPOLATES  CORRESPONDING  TO  XX 
J1..J2.  ARE  INDICE  LIMITS  ON  X.Y 
Nl.  N2  ARE  IMD1CE  LIMITS  ON  X)  •.  ALSO  VY 

FIRST  FIND  DERIVATIVE  wlXE  TERMS  THAT  ARE  COEFFICIENTS 


DC  10  J-JA.J2 
^  -  -  *  J  -  X ;  J- 1 

1C  D  -  *  v  J  -  V  j-l i  i/M. J. 

CC  12  j=jA,Jb 
A  j'  -  H i «H  1 • 

8  Ji  -  2.*  Hi Ji  *  HU-1’ 

12  F ; j :  -  3.*t  Hi J  >*Di J-l •  -  Hv  J+l **D>  J ’ 

B  Ji:  *  2. 

h  ji:  -  l. 

f  .1  -  3.*D>JA 

a  _2  «  : . 

6-2  «  2  ■ 

'■  -2  -  3 .  *0  .  J2 

Ia.w  TPia  A. B.H.C.F . J1.J2. 1 

INTERPOLATION  .  X«J.  ARRAY  MUST  86  HOHOTONE 
r  JDCc-l.£— ^A8S{XU2?-a;J1  •  -• 
j  »  JI 

:  -  j:  *  l 

DC  2C  K-N1.N2 

?£  J£  *  j  -FUDGE. lE  M  N  . ANC.X  I  -PUOCt.Gt.x*  n  GC  TC  3C 

!*  x  j  -  n  h  22.22.2* 

22  .  •  j  *1 

I  *C7.  J2  GO  TO  27 
GO  TO  28 
24  J  -  J  -1 
I  •  1-1 

;=•  J.lT.  JH  GO  TO  27 
GO  TO  28 
2>  HOiTf.i *00 

600  FORMAT  55H0FATAL  ERROR  IN  val'JE  AT  HHlCn  He  ARE  SUPPOSED. 

I  52f-  TC  INTERPOLATE  IS  OUTSIDE  0:  GIVER  U6J  O1  VALUES. 

STOP 

3C  T  -  >  XI'k •  -  X. Jr ' /Mi  I ’ 

WIN  ‘-  T»y  n  ♦  TT-YIJ:  *  h:Ii*T*TT»'  ( F :  J  •  -  O^I'»»TT 
1  -  -  I  -O' .  I  i  »»T  ■ 

20  CONTINUE 
RETURN 

END 

subroutine  TRie  a.b.c.x.p.n: .nu.jinc 

DIMENSION  a  2  . B  2  .C  2..X  2  .  F  2 

THIS  SUBROUTINE  SOLVES  a  TRI-DJAGOnal  SYSTEM  Of  LINEAR 
EQUATIONS. 

X'NL  '-C  NL  !  'B'Nl . 
f i NL  •? • NL i/BINL. 

NlP1»Nl*JIN: 

CC  1  J-NLP1.NU.J1NC 
JM-J-JIMC 

■  b  j  > -a  j>*x? jh 
>  j  -c  j 

1  f  J.-.F:  j  .-A.  J»«F.  JM- i»Z 
NUPNL-NU*N. 

CC  2  J1-NLP1.NU.JINC 

J-NUPNL-J1 

JP-J*JlNC 


2  f  J'-F  J>-Xt J.»Fi JP < 
RETURN 
ENC 


SUBROUT  I NE  TSPl 1 N . XX . YY . X , Y . N . NN. SIGMA 


DRIVER  FOP  TENSION  SPLINE 

DIMENSION  *'3Cr.Y'301  :.A:301  .B3C1 
P  D p  301 

DIMENSION  xx  301  . YY ’ 301 

CAlL  SPLINE  h.x . v. FDC. sigma 

Ci..  valSPc  n.x,»,fdc.nn,xj.vy.$1 GMa 

RETURN 

END 


SUBROUTINE  SPLINEiN.X.Y.FDO.SIGMA 


DIMENSION  *  301  . 
FDP. 301 

alambd  -  : 

AlAMBD  «  c 

ALAN8D  -  0. 

MHi  -  N  -2 
NM?  -  N  -1 
DC  1  1 -2 . NM 1 

l,c  -  >r  l-l  -  X. 


CANTtlfvEP  END  CONDITIONS 
PaRABCuIC  RUNQff 


I  -  y 1 !  - 1 

S I NH ' SI GMA*DXP 
COSH : S I Gma»DXP • 

S  I  NH  S  I  GNA—OXM  ’ 

COSH  SIGMAOXM- 
OXM  *  .lT.  l.E-SJTNEN 
lt».*r  ERROR.  .  .OXM-O.O.  I 


'D«M  *  SIGMAaCOSHP'SINMP  -l./DXP 


I f i ABS ( OXH  <  .lT.  1.E-8JTHEN 

WRITE l b.*  I '  ERROR. . .OXM-O.O. I 
FNDJP 

IF  ABS'DXP  .LT.  l.E-8>THEN 

HR  I T  E i fe . * ’ ’  ERROR. . .OXP-O.O. . .1*’  .1 
ENDIF 

A  :  •  1 , /OXM  -  SIGMA/SINMM 

e  -  SIGMa»COShh  SIMM-  -  *  SIGMAiCOSHP'SINMP  -1./DXP 

Cl  1  *  •  l./DXP  -  SIGHA/SJNHP 
R h  -  S1GMA*SIGHA*!DYP/0XP  -  OYK/DXM ) 

CONTINUE 

B ’ 2  I  -  B(2>  ♦  AlAM8D*fX(2)-Xfl I ' 

BiNMl  -  0  <  NM 1  1  -  ALAM0D*C(NM1  l 

DC  2  I-3.HM1 

IF  A6S  6  1-1 • . .17. 1. E-9 JTHffc 

HRITEib.* i 'CAUTION. .  NEAR  ZERO  DIAGONAL..  TSPL I  ME  CONTINUES’ 
8  1-1 --SIGN  1. .6  1-1  i  • i . E-l C 
ENDIF 

*  *  A. I  B  1-1 

B  I  •  B'  I  -  T-C  1-1 


R >  I  i  -  R ( I  -  -  T*R< 1-1  - 

CONTINUE 

FOPfNMl  '  •  R<NM1)/B(NM1> 

DC  3  1*2. MK2 

f DPI NHl ,  »<RlNMl J-CINKI >«EDP l NMl *1 1 > /8 (NMl i 

continue 

FDP-  1 )  -  ALAMBD»(FDP!2'>  -S1QHA»SIG*W(2  f  ‘ 

FDP<  N i  -  ALAMBD*  I f OP  I MH1 )  -  S1GMA*S1GMA*Y I NMl ) ) 

RETURN 

END 


SUBROUTINE  VALSP6(N.X.Y,F0P.NN.XX.YY.SIGMA  » 


DIMENSION  X' 301 • ,  VL30I J , FDP{ 301 t 
DIMENSION  XXI 301 j .  YY  1 301 ) 

NMl  -  N  -  1 
OO  50  3*1 i MN 
DO  1  I *1 , NMl 

IFfXX'.Ji  .LE.  X(WI»G0  TO  10 
CONTINUE 

DXM  -  XX  J  -  X<  I  i 

dxp  •  xi 1*1  -  xx ; j; 

DEL  -  X< 1+1 ■  -  XI 1 
SlNHPX*  SINK' SIGMA*DXP 
StNMX*-  SlNM: SIGMA-OEL  t 
IFtAfiSiSINMXXl  .LT.  I.c-IOITHEN 

«mU,»5'  CAUTION  IN  SPLINE - SlNHXX  -  \SINHXX 

SlNHXX  -  i .  £-10* SIGN; 1. , SlNHXX ) 

Effilf 

SINMMX-  SlNHf SIGMA *OXM ' 

SIG2IN-  1. /SIGMA/SIGMA 
YY  i  J 1  *  FDP  I )*SIG2IN*SINHPX/SINMXX 
s  *  'YU'  -FDPI  I  »*SIG2IN '•DXP/DEl 

S  -  FOP< 1*1 i*SIG?In*SINMMX/SINMXX 

l  *  Vl 1-1-  -  FDP< 1*1 i*SIG21N i*DXM/OEL 
CONTINUE 
RETURN 
END 


DFVFLOPFD  Bv  TJM  BARTk  X-6417 
NASA-AMES. . .WRIGHT -PaTTERSEN  AFHAL 
TASK  933 


COMMON /BASE  UMAX . XMAX . PI . SBOOV . SKU . SMUY . NBOOY . NCLUST 
COmOH  'VAPi/XOQl  J .  Y :  301) . .  XJ  t  301  > .  Xf  7A<  301  ; .  YXJ  I  301  ; , 
1  YETA , 301. . R ( 301 . 100 ! , SCAL  E \ 100  - . SR i 301 , 2 : . VOL i 301 ; 
COMMON 'STORE  XX; 301. 100  .YY; 301. 100 
COMMON  /ORDf R/ ALPHA . AlPmAH. KM1 . KM2 
COMMON  /UNITS  BOOYUN.GRIOUN.DOCUNI 
COMMON  /FNAMES/  BOOYFI.GRIDFI.DOCFIL 
CO**«N  /LAX/RELAX 
INTEGER  BOOYUN.GRIOUN.DOCUNI 


CMARACTER*BO  BOOY.gr ID. INPUT 


OPEN  VARIOUS  FILES  FOR  I NPUT . OUTPUT , ETC 


C  NOTE:  SINCE  THIS  IS  A  MARCHING  SCHEME.  POINTS 

C  MEED  ONLY  BE  STORED  FROM  THE  PREVIOUS  K  LEVEL. 

C  THIS  MOULD  MEAN  THAT  THEY  MOULD  BE  WRITTEN  OUT 

C  AFTER  EVERY  CALL  TO  STEP . 

C  BUT  TO  MAKE  IT  EASY  TO  USE  THE  BUHING  GRAPHICS 

C  PACKAGE.  1  HILL  STORED  THEM  ALL  AND  WRITE 

C  THEM  OUT  AT  THE  END 

C 

C  START  BY  LOADING  BODY  SURFACE  POINTS  INTC 

C  XX. YY  WHICH  WILL  STORE  THE  GRIO  AS  HE  MARCH  OUT 

C 

DO  5  J-l.JMAX 
XX. J.  1  1  •  X i J  i 
YY<  J,  1  •  •  Y  (  j  i 

MRITt'GRI0UN.7O0)XXCJ.ll  .YYU.D 
5  CONTINUE 

caxYtxxvrexx  main  loop  to  march  grid  to  outer  boundary  rxsxvmvt 

CXXXXWXXXXXVAXX’irXXXXVi'S'SXXXXtiXXXXVAXXXXViXXXXXXXXXXXXXXXW-iXXX 
DO  10  K-2.KMAX 
C 

c  ADVANCE  GRID  FROM  K  - >  K-l 

c 

CALL  STEP**) 

C  STOKE  SURFACE  GRID  PTS  f MAY  WISH  TO  WRITE  OUT  POINTS  HERE) 

C 

DO  7  J*1,JMAK 
XXU.K  i  -  XU) 

YY ; J  X  ■  YiJ1 

C  THIS  WRiTE  PROVIDES  DaT A  IN  THE  FORM  THE  NAVI ER-STOKES  SOLVER  NEEDS. 
WRITE  1 GR I  DUN. 700 .  XX  I J . K i . YY{ J . ¥ 

7  CONTINUE 
700  FORMAT '2E15. 9) 

mrrcu**)' . fihisheo  level  mi.’  alpha-’,  alpha 

c 

10  CONTINUE  _ _ 

cmvnvmn  fnd  of  main  loop  to  march  grid  tc  outer  boundary  r. 

C  0.K .  ME 'RE  DONE... LET'S  WRITE  OUT  THAT  GRID 


WRITE' GRIDUN  UMAX, UMAX 

WRITE  GRIOUN. 250)?  < XX  J.X  .3-1. UMAX  I.K-2.KNAX 


c 


•  "WiJ.K  .J-l.JMAX  .K-l. KMAX 

25C  FORMAT ;2X.E20. 1C. 2X.E20. 10 

j  C  HASTa  LA  VISTA' 

i  : 

i  STOP 

I  nil  FORMAT  l A  > 

END 


SUBROUTINE  SARC 


COMMON '6aSE  JMAX .KMax. p3 .SBOOy .SHU. Swuv .NBODY .NCLUS' 
common  vars  *.3c:  .  y  30:  ,  xxj  3c:  . xe'a:3c:  .  yxj  301 
;  VETa  301  .R  301.100. .SCALE. IOC. .SR. 3C1. 2  .VOL  301 

I  C  INTEGRATE  ARC  LENGTH  AROUND  BODY 

C 

S  -  0. 

DO  10  J-I.JHaX-1 
JP  •  J*l 

S-S  *SORT  *  JP  -x .  J  i»»2  -  J®  -Vjii«2 
1C  CONTINUE 
SBOOY-  S 
RETURN 
END 


SUBROUTINE  INITIA 


COMMON 'BASE 'JMA* .KMAX . PJ . SBOOY . SMU . SMUV . N80DY . NCLUST 
COMMON  VARS  X  3C1  .Y  301  .XXI. 301  ..XETA-.3C1  .YX3  301  . 

1  VETA  301  . R  301.100  .SCAtE'lOC  . SR  I  301 .2 .. VOL . 301 
COMMON  'OROER 'AlPma. AlPMAM.KMI .KM2 
COMMON  *'0I  SS/SMUIM.  SMUIMV 
COMMON  ' SCALr T /  OSETA 
COMMON  /SOBO/  SETAHX 
COMMON  /UNITS  /  B00YUN.GR1DUN.D0CUNI 
COMMON  /FNAMES/  BODY FI .GR10FJ .OOCFIl 
LOOICAL  VERBOS 
character- 1  ANSMER 
INTEGER  BODYUN.GRIDUN.DOCUNI 


VERBOS  -  .TRUE. 
PI  -  a , »Al AN . 1. 


JHAX  NUMBER  OF  POINTS  IN  THE  STREAMHISE  DIRECTION 

KMAX  NUMBER  of  POINTS  IN  THE  NORMAL  DIRECTION 

[NOTE:  K-l  IS  THE  BODY  SURFACE 

OSETA  APPROXIMATE  CELL  HEIGHT  FOR  K-l  TO  K-2 

SETAHX  APPROXIMATE  DISTANCE  TO  OUTER  BOUNDARY 

(NOTE:  THIS  IS  "IXIZ"'  IF  THE  BODY  IS  A  CIRCLE- 
I’VE  NEVER  ACTUALLY  CHECKED  IF  THIS  IS  TRUE 


SCKMAX  :  VALUE  OF  SCALING  FUNCTION  AT  KMAX  "SCALE  <  KMAX ! * 

SCALE  IS  THE  FUNCTION  THAT  TRANSITIONS  FROM 
STREAMMJSE  ClUSTEREC  VOLUMES  TC  EOUAi- 
SPACEO  VOLUMES  AS  MENTIONED  IN  THE 
ORIGINAL  PAPER  BY  STEGER  AND  CHAUSSEE 

SHU  COEFFICIENT  FOR  EXPLICIT  DISSIPATION 

5HJ1M  COEFFICIENT  FOR  IMPLICIT  DISSIPATION 

ALPMAM  MAXIMUM  ALPHA  FOR  MARCHING  INTEGRATION 


KM]  J 


KM2 


THE  ALPHA  INTEGRATION  SCHEME  STARTS  OUT  AT  THE  BOOT  WITH 
ALPHA-:  E-J.FP  IMPLICIT  AND  LINEARLY  INCREASE'  *C  ALpHAM  AT 

X-KMI.  FROM  KMJ  TC  KH2  ALPHA  REMAINS  CONSUN'  A*  AL HAM . 

FROM  KM2  TO  KMA >  ,  Ac PHA  LlNEARL*  DECREASES  RACK  TC  ]  AT  KMAX 

THIS  VARIABLE  ALPHA  IS  INCORPORATED  TO  ALLOW  FOP  ALPHA  INTEGRATION 
GREATER  THAN  ON* ...  .  FOR  ALPHA  GREATER  THAT  ONE  I  HE  SCHEME 
BECOMES  VERY  TEMPORIaLLY-SPaCIALLY  OISSIPATJVE 

:if  et*  is  viewed  as  a  timf-like  direction, 

and  AS  A  RESULT  GIVES  VERY  SMOOTH 

GRIDS  WITH  A  SMALL  DEGRADATION  IN  ORTHOGONALITY .  INVERSE  JACOBIAN  ...ETC 

SMU.SMUIM  ARE  SCALED  LINEARLY  FROM  ZERO  AT  K-l  TO  SHU.SMUIM  AT 
KH1  AND  REMAIN  CONSTANT  FORM  KM 2  TO  KMAX 


READ  INPUTS 

MR1TEI4.*"  IPPUT  KMAX. NORMAL  MALL  SPACING' 

READ' 5.*  IKMAX.DSETA 

MR  I T  E ' DOCUN i . •  KMAX. NORMAL  MALL  SPACING’ .KMAX. OSETA 

SCKWA*  -  . 

SMU  ■  .00* 

Shu i m  .  .005 
alpham  -  2.5 
KM]  •  .25»KMA> 

KK2  *  75-KMA* 


2222 


AIPHAM-\FH.7, 


C  ECHO  INPUTS 

C 

2  CONTI  HUE 

WRITE  1 6 , 1000  IJMAX .  KHAX  . DSETA . SET AMX  .  SCXMAX  , 

S  SHU.SKUIK.ALPHAH.KM1.KK2 

1000  FORMAT  (  '  JMAX*'.l4  '  KMAX-',U...  DSETA*  ’  r  E12 . 6 , 

S  *  SFIAKX-1 , F12.4. '  SCKMAK" ' , F12.4,/ . 

I  1  SMU-'.FlA.?.1  SNUIM*1 , F14. 7,  AL 

t  •  AT  KM1-’  .15.  ’  KK2-M5) 

WRITE l 4.*)’  00  YOU  WISH  TO  CHANCE  THE  A* DYE  DEFAULTS?  <Y/H>  1 
READ! 5.2222) ANSWER 
FORMAT l A 

IFt ANSWER  .EQ.  ’Y’  .OR.  ANSWER  .EC-  ‘Y* 1THEN 
WRITE  IN,* 1 ’  CHANGE  THE  DEFAULT  VALUES  I*  SUBROUTINE  INITIA.' 

STOP 
ENOIF 

READ  IN  BODY  COORDINATES 
FIND  EPS  FOR  OUTER  BOUNDARY  APPROX 

USES  AN  EXPONENTIAL  STRETCING  IN  THE  NORMAL  DIRECTION 

EPSIl  FIND  THE  COEFFICIENT  FOR  THE  STRETCING  GIVEN 
THE  HALL  SPACING  AND  THE  OUTER  BOUNDARY  DISTANCE  (APPROX! 


EPS-EPSIL(SETAHX.O.O.OSETA.KMAX, 0.004. 40.1) 


DISTRIBUTE  RADIAL  POINTS 

INITIAL  RADIAL  SPACING' 


VEABOS  -  .FALSE. 

IF (VERSOS )  WRITE <4,* ) 

00  15  J«1 , JMAX 
R ( j, l >  -  o.oo 
CONTINUE 

OC  14  K-2.KHAX 
DC  14  J-i.JMAX 

R( J.KI-R. J.K-1)^0SETa*(1.+EPS>**(K-21 
I  F ( VERBOS  .AND.  J.EQ.l JWR1TEI4,* IK.Rll.K 
CONTINUE 

SET  SCALING  FUNCTION  SCKMAX  -  SCALE(KMAX ) 
SCALE  11  1-1. 

ESCAL  •  1.  -  EXP ( ALOG ( SCKKAX ) /FLOAT t  KHAX-2 ) ? 

DC  17  K-2.KHAX 

SCALEIK'  «  .  1.  -  ESCaL )**(K-2 ) 

CONTINUE 

RETURN 

END 


SUBROUTINE  METRIC 


COMMON /BASE / JKAX . KHAX . PI . S600Y . SMU . SMUV . NBOOY , NCLUST 
C04M0N / VARS /X 1301 i . V I 301 J . XX]< 301 , . XETAt 301 1 . YXI ( 301 ) . 
1  YET  A ! 301  - . R ( 301 . 100 ; . SCALE  I  100 ) . SR : 301 . 2 ) , VOL ( 301 • 

DO  10  J-2. JMAX-1 

JP-J*1 

JR-U-1 


XXl(J>*(Xl JP>-X(JR> i»0.5 
YXI ( J»-(V: JP »-Y( JR) 1*0.5 
XXYY.XXI I J  >**2*YX1 1 J )**2 


c 

c 

C 

c 

c 

c 

c 

c 

c 


c«* 

c 

c 

c- 


c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


MOTE:  eta  METRICS  ARE  OBTAINED  FROM  DIFFERENTIAL 
EQUATIONS  AND  ARE  NONLINEAR  AS  SUCH 

FROM  THE  CAL'.  TNG  SEQUENCE  USED... 

VOLUMES  f Rtm  IKE  UNKMOhn  K  LEVEL  ARE  BEING 
USED  (THIS  IS  EXPERIMENTALLY  WORKS  WELL) 

_  THIS  WHEN  USED  WITH  ALPHA  >  1 

SEEMS  TO  HELP  OUT  IN  REGIONS  OF  CONCAVE  CURVATURE 

XETAJ  JI  —  YXI  (  J>*VOL  <  Ji/XXYY 

YETa'J)-  XXI  I j)*vol; JI/XXYY 

CONTINUE 

RETURN 

END 


SUBROUTINE  STEP(K) 


COMON  /BASE  JMAX.KMAX.PI  .SBOD'  .  SHU .  SKUV  ,  NBOOY  .  NCLUST 
COMMON/ VARS /X  '.  301  .v  ,  301.  .XXI  301  .  XET  A  301  .  .  YXI  301 
1  YE T A i 301  .R ’301.100  .SCALE; IOC . .SR  301 .2 .. VOL l 301 
COMMON  /ORDER  AlPha . ALPHAK . KM1 . KM2 
COMMON  /DISS/SMUIM.SKUIKV 

DIMENSION  B< 301.2.2). Cl  301. 2. 2 1 . Dr 301 .2 .2 l . F < 301,2 i 
DIMENSION  Ai3O1.2,2/.E(30:,2,2; 

SET  UP  ALPHA  VARIATION 


IF  /K  .LE.KMDTHFN 

SCI  •  FlOAT  t  K~2  -  /  FLOAT  (KM1-2 
SC2-SC1 

EL  SEIF ( K  .GE.KM21THEN 
SCI  -  1.  -  Float (K-KK2) /FLOAT (KHAXHCK2 I 

SC2*  1. 

ELSE 

SCI  -  1. 

SC2»SC1 
END  IF 


ALPHA  •  1.  *  (ALPMAK  -  l.)*SCl 

SCALE  DISSIPATION 

SMUV  -  SC2*SMU 
SMU I MV  -  SC*«SMUIH 


CALL  VOLUME (K» 
CALL  METRIC 
CALL  RHSlKi 


C 

c 


INVERSION  IN  ETA  DIRECT  I  ON 


FILL  A.B.C.F  ARRAYS  FOR  BLOCK  TRIDUGONAl 


la 

I  c 


!  c- 


lc 


I  c 
I  c 


CALL  FILTRYlK.A. B.C.D.E.F 

CALL  BPENTA' 1. JMAX. A. B.C.D.E.F 

CALCULATE  NEW  X,V  COORDINATES 

DO  5  J-l.JHAX 

XtJ)  »  Xlji  ♦  HJ.Ii 

YlJi  -  Y .  J  •  *•  F<  J,2 i 

CONTINUE 

return 

END 

SUBROUTINE  FlLTRYtK.A,B.C,D,£,f  > 


COMMON 'BASE • JKAX . KMAX .PI. SBODY . S«U . SHUV . NBODy . NClUS-^ 
COHMON  'YARS  'X J  301  :.Y  3C1 .  .XXJ  oc:  .XFTA.3C1  ;  ,YXI  1301  . 
1  VET*  3CI  .ft  3C1.10D  .  SCALE  100  .SR  301.2’.  VOU  301  . 
DIMENSION  83C1.2.2  .C  301.2.1  .D  301.2.0  .?  301.2 
DIMENSION  a  301.2.2  . E  301.2.2 
COMMON  'DISS  SMJIM.SMUIMv 
COMMON  ORDER  AlPma.ALPMAM.KM1.KM2 
DIMENSION  am. 2.2 


FILL  TRIDUGONAl  MATRICES  IN  ETA-DIRECTION 


00  5  N-1.2 
00  5  N-1.2 
00  5  3-1. UMAX 
a; J.N.M  -  0. 

EU.N.M  *  0. 

continue 

DO  10  J-2.JMAX-1 

METRIC  TERMS  IN  B.-lA 
ri-xeta; J' 

K2-VETA  J 
R3-XXI  J 
R  *— Y X I  J 

RMtl-1 . ■  R3--2-R  — 2 
R 1 -Rl-RM; * 

R2-R2*RM£7 

CALL  GMATRX' AH.J.K.RI.R2.R3.R* > 

LOAD  8  -1A  INTO  BANOS  < ALlOM  FOR  GENERAL  INTEGRATION .. ALPHA t 

CU.1.1'  -  1. 

C.J.2.2  -  1  • 

C( J.1.2  •  0. 

C. J.2.1 •  ■  0. 

DO  8  M-1.2 
00  8  N-1.2 

B  t  J. N.M  -  - . 5-AIPHa-AMi N,M 


i * 

\l° 


i- 


!  15 

l  c 


1 


I 


20 


O.J.N.M  • 

CONTINUE 
DO  10  N-1.2 
F ( J.N  >-SRi J. N 

continue 


WLPHA-AMIN.M. 


full  implicit  ATH  ORDER  DISSIPATION 


J-2 

DO  12  N-1,2 

At J.N.N t-A' J.N.N  *0.«SMUIMV 
B. J.N.N  .-B  J.N.N  -2 . -SMUIMV 
Ci J.N.N  -C  J.N.N '*5 .• SMUIMV 
D  J.N.N  -D  J.N.N  -*.*SMUIMV 
E  J.N.N  -c-  J.N.N  --I. -SMUIMV 
CONTINUE 
J-JMAX-1 
DO  I A  N-1.2 

A!  J.N.N  .-A  -  J.N.N  *1.*SMU1MV 
Bl J.N.N ;-B' J.N.N ■ --.-SMUJHv 
CiJ.N.Ni-C. J.N.N '*5. -SMUIMV 
0 1 J.N.N  i -Dr  J.N.N  -2 . •SMUIHV 
E  J.N.N  -E  J. N. N --0. -SMuI MV 
CONTINUE 
DO  15  N-1.2 
DC  15  J-3.JMAX-? 

A  J.N.N  -A  J.N.N  *1. -SMUIMV 
6  J.N.N  1-6' J.N.N  --.-SMUIMV 
Cf J.N.N  I -Ci J.N.N SMUIMV 
D» J,A.N  »— O' J.N.N  --.-SMUIMV 
El J.N.N  i -El J.N.N  1*1. -SMUIMV 
CONTINUE 


implicit  c-cric  e-:  a*  k-i.kma> 


DO  20  N-1.2 
DO  20  M-1.2 
J»1 

At J,N.M»— C. 
Bt J.N.M >-0. 
Ct J.N,M*-0. 
Oi J.N.MI-O. 
E ( J.N.M 1-0. 

FILM. 

J-JMAX 

A  J.N.M'-O. 
B  J.N.M  --0 
C  J.N.M  >-C. 
D  J.N.M  p-C . 
£■ J.N,M>«C. 
F I J.N >*0. 
CONTINUE 


J-I 

CiJ.1.1)-  ] 
C.J.2.2'-  : 
D  j  .  2 . 2  I-  - 

E  J.2.2  '• 

J-JMAX 

c  w.i.i -  ; 
c •  j . r. ? i*  : 
8  J.2.2  • 


2 


SUBROUTINE  VOLUME ( K ; 


CO*WN/BAS€/JMAX,XMAX,PI,SftOOY.SMU.SMUY.NBOOY,NCLUST 
C0»#*ON/VA*S/Xi30i  j.y;30i;.XX3  I301).XETA(301!,YXI(301), 

1  V  ETA  1301  i,«;301.  JOO;  .SCALEUOOJ  .Sltt  301.2)  .VOL  (301 1 
CO t*Q*  /ORDER/ALPHA. ALPHAM.KM1.KH2 
CALL  SARC 
DO  5  J-2. JHAX-1 
JP  -  J*x 
JR  -  J-l 

DS  -.5*  Rt  J-l.K ■ -R<  J-l.K-l  :  *  R :  J*1 . K  )-R ( J+l.K-1 1  ■ 

Dl  -  SORT  t  ( .5**xi  JP--XI  JR) }  »**2  i.5*<Yi  JP  ,-yiJRm  >«2j 

VOLtJ  1-OS*  (SCALE  (K»«DL  ♦(  1 .  -SCALE  IK!  FhSBOOY /FLO  AT  i  JMAX-1 ) ) 

CONTI HUE 

RfTUIW 

END 


SUBROUTINE  RMSiK. 


COMMON / fl  A  S  E / JMA  X . ANA  X . P i , S0OOY. SMU. SHUV . N0ODY . NCIUST 
COHHON/VARS/X: 301 k Y : 301 1 . XXI . 301  - ,XETA!301  .YXI 1301 ' . 

1  YET  A  l  301  l,Rt  301.  IOC  ..SCALE  1 100  i.  SR;  301,2  j.VOUJOl) 
COMMON  /ORDER/ ALPHA, ALPHA*. KM 1,KH2 

CALCULATE  FORCING  FUNCTION;  CONSISTS  OF  NEN  A NO  OLD 
volumes  plus  variables  evaluated  at  the  kth  level. 

DO  5  J-2. JMAX-1 
JP  ■  J*1 
JR  -  J-l 

Rl-XXKJ1 

R2-YXIIJ) 

R3-XETAU) 

RA-YETAIJ) 

RHET-l./lRl**2^R7w»2l 

SRi J. I >--R2*t ALPH*»V0L l J (♦(l. -ALPHA )»(Rl*R*-R?»R3 )  l*RMET 
SR: J,2 I-  Hi* l ALPM**VOL l  J)-( 1. -ALPHA >• (Rl»Rfc-R2*R3 ' l*RM£ T 


IFiJ 

JPP-. 

SHX 

SHY 

ELSEIF 

JRR- 

SMX- 

SHY- 

ELSE 

JPP-. 

JRR' 

SMX- 

SNr— 

ENDIF 


NUMERICAL  DISSIPATION 

EO. 2 )THEN 

J->2 

SMUV»(-2.«Xi  JR)^.*K(  J)-4.*K<  JP)*X!  JPP  )  ) 
SMUV»t-2.*Yi JR  5 .  *Y  i  J  J-A  .»Y{  JP  )*Y  <  JPP  ) ) 
U  . £Q .  JMAX-1) THEN 
J-2 

-SMUV» ( -2 .*X<  JP )+S . *X { J )-4 . -X ( JR )*Xl  JRR ) ) 
-SMUV# ( -2 . *Y  JP  >*5 . »Y l J /-*. »Y l JR  )-Y ( JRR ) ) 


J*2 

J-2 

-SMUV»(Xl JRR)*A.»X( J)-Xt JPP 1 
-  SMUV* < Y < JRR >+4 . • Y ( J ) * Y ( JPP / 


•A  .  •(  X(  JP  )*X(  JR  ;  i  *» 
■4.0iYUP>+YUB,>) 


SR( J.l )-SR! J.l >*SMX 
SR [ J , 2 i-SR [ J . 2 (♦SHY 


continue 

RETURN 

END 


SUBROUTINE  GMATRXIA.  J.K.R1.R2.R3.RA) 


COMMON/BASE /JMAX.KMAX.PI , SBOOY . SHU. SMUV . NBOOY . NCLUST 
COMMON ' V APS '*  301  .Y, 301 . .XXI i 301  . XETa i 301 : . YXl ! 301 • 

i  YEiA;30J.,R[3o;.ioc. « sci_ :  r:  wv  *>  .voluoi 

DIMENSION  A <k,4. 


FILL  BINV-A 

Afl.l)-*>RJ-R>RA 
A  1.2 --R2-R3-RA-R; 
A ;  2 . 1  i-Ra-R  1-R3-R2 
A  ,2.2  »-R4»R2-R3*Rl 
RETURN 
END 


FUNCTION  EPSIKFMX,FMIN.DFM,NPT.FPCC.1CC. 


this  subroutine  applies  A  NEHTON-RAPHSON  root-finding 

TECMNIOUE  TO  FIND  A  VALUE  OF  EPSILON  FOR  A  PARTICULAR  USE 
OF  THE  EXPONENTIAL  STRECHING  TRANSFORMATION. 

FMX  IS  TOTAL  ARC  LENGTH  ALONG  COORDINATE 

FM1N  IS  STARTING  VALUE  OF  ARC  LENGTH  SUCH  AS  0.0 

DFM  IS  SPECIFIED  INITIAL  INCREMENT  OF  ARC  LENGTH 

NPT  IS  NUMBER  OF  POINTS  ALONG  COORDINATE 

FPCt  IS  ITERATIVE  ERROR  BOUND.  E.G.Ol  0.00002) 

ICC  IS  MAXIMUM  NUMBER  OF  ITERATIONS 

•CALL  IF  NCALl-1  INITIAL  GUESS  FOR  EPS  IS  USED 

IF  NCALl  .G7.  1.  PREVIOUS  EPS  USEO  AS  INITIAL  GUESS 


FMXL-FM* 
FMINL-FM1N 
OfMl-OF* 
FPCa-FPCC 
1 CCL- ICC 


FWPTM-FLOATfNPT-J 

I F I NCALL . EO . 1  i  £PS-<FMXL/OFML )•• ( 1 . 0/FNPTK2 J-l . 0 

00  3  NIT-1. ICCL 
EPl-EPS* 1 . 6 
EP1TN-EP1  —  FNPTK2 

REPS-1. 0/EPS _ 


c 

c 

c 

100 

101 

c 


I  c 
I  c- 


DFMOE-OFMl*REPS 

f.FH*L-FMlNl-0FM0f»< EP1TW»£P 1-1.0 
IF.ABS  F  ..LT.FPCCl  GO  TO  A 
0FH0E2-0FM0E-REPS 

FPn-0FM0£2*' 1  0*EP1TM»( EpS-FNPTM2-i.O 

EPS-EPS*F/FPh 

CONTINUE 

fPSlL-£PS 

HPITElfc.lOOi 

RETURN 

EPSIL-EPS 

wfi I T  E  *  fe . 101  EPSIL. F , HIT 
RETURN 

FORMAT. /*?H  EXCEEDED  HAX.  WO.  OF  ITERATIONS  JN  EPSIL.  . 
FORMAT i /7H  EPSIL-.F12.5.5X.7H  AND  F-.FL2.5,5*.7H  AFTER 
L2H  ITERATIONS.  - 

END 


SUBROUTINE  BPENTA  IL. IL.A. 6.C.D, E , f 

DIMENSION  A i 301. 2. 2. .B! 301.2. 2. 301.2.2  . 

♦  D  :  301. 2. 2  ,  E f  301 . 2 ,2  .  F  •.  301 .2  . 

DIMENSION  G;2,2!.H;2.2- .U? 301 .2.2 . . V 001,2.2 . 
COMMON/LUO’  Lil.L21.L22.U12. VI. V2 
REAL  L11.L21.L22 


2K2  BLOCK  PENTaOJaGOnal  S01VEP 
HRITTEN  by  tIm  BAftTn.  NASA-AMES 


IS  •  IL  *  2 
I  -  IL 

DO  10  N-1.2 
DO  10  M-1.2 
G l N . M 1  •  Ctl.N.H. 

CONTINUE 

Call  LUDECiG 

Dl  •  vi* F ■ I .  i 

D2  -  V2*  r  F ; 1 . 2  -  l21»D1 • 

F •  1 .  2  -  02 

F . I .1  •  Dl  -  U12»F '1.2 

DO  11  M-1.2 
Dl  -  Vl-E; 1.1. M. 

D2  -  V?-  Ell. 2. M.  -  L21-D1  ) 
V11.2.M  -  02 

V • 1 , 1 . M  *  -  01  -  U12»V(I,2.MJ 
01  •  V1*DI.1.H 


11 

c 

c 

C2  -  V2-'D- 1.2. M  -  L21-D1 ' 

U; 1.2.N  •  02 

Ud  .l.M  •  •  Dl  -  U12*U(  1 .2  .  M 

CONTINUE 

c 

c 

I  ■  lL  *  1 

L  •  1  -  1 

DO  20  N-1.2 

DC  20  M-1.2 

GIN.M-  •  CI.N.M1  -  Bil.N.ll-UlL.l.M 

-  B' I .K.2 )*UI L.2.M, 

20 

CONTINUE 

CALL  LUDECIG' 

DO  21  M-1,2 

Fli.M'  -  Fd.M-  -  Bd.M.l)-  F.'L.l  -  B 

1 ,M,2  >*F< L.2  < 

21 

continue 

nt  .  v i *  r  t  t 

I  25 
C 
I  C 


C2 


V2* ' 


'  F  '  I  .  2 
s  1.2'  -  D2 
r  1.1  -  01  -  U12 

DO  22  N-i.2 
DO  22  M-1.2 
M 1 N . M  1  •  D-  I ,N.M 
CONTINUE 
DC  25  M-1.2 
Dl  -  V}»E’I.1.M 
02  -  V2-  E  I  .2  . M 
V'  1 .2.M  •  D2 

v  1 . 1 . m  i  -  Dl 
Dl  •  V 1-M  l.M 
D2  «  V2- ■ H: 2 . 

U. 1.2.M  -  Dl 

U. I. l.M  -  Dl 
CONTINUE 


-  L21»0I 

• :  .2 

Bi  I.N.l  1-va.l.N,  -  Bt  I  .N.2  >*V(I.,2.H 

-  L21-C1 
U12- v i I , 2 . M 

-  L21-D1 
U17*U ( I . 2 .M • 


DO  50  I-IS.IU 
L  -  1  -  1 
Ll-  I  -  2 
DC  30  N-1.2 
DO  30  M-1.2 
B  1 .N.M  *  6’  1 
CONTINUE 
DO  35  N-1.2 
DO  35  M-1.2 

GiN. N«  -  Cl  I .N.M  ■  -  A ' I .N. 1 »*v i LL , 1, M 1  -  A' I.H.2»»V<LL.2.Hi 

CONTINUE 
CALL  LUDECIG 
DC  37  M-1.2 
Fli.M  •  r I  l . 


A.1.N.1'*U  LL.i.M  -  A  1 , N . 2  >*U  >  LL . 2 . H 


-  Bll.N.lXUtL  .l.M-  -  B<  1  .N.2  )*Ut  L  ,2«M  > 


A'  I.M.l  --f 

CONTINUE 

01  • 

02  •  V?*  t  F ( 1 .2 i  -  L21*01 - 
F  (  1 .2  )  -  02 

Fl  1.1 )  -  Dl  -  U12*f  U ,2  ) 

ITU  . EO.  IUJGO  TO  80 
00  *2  N-1.2 
DC  *2  M-1.2 

M(N.m  -  0>  i.H 

CONTINUE 
DO  *5  m-1.2 
Dl  •  v l *H ' 1 . N 

02  -  V2-M  2.M 


'£..  1 

Li.  .  1 


-  B 

-  A 


L.2 

1 .M.2  t*F ( LL . 2 


B  I.N.l »»Vf  L . l.M 


B(1,N.2»»v(L.2.M 


L21»01 


U  I . 2  ,  H  -  D2 

u: : . l .m  -  di  -  Ul2*u: I ,2.h 

CONTINUE 

IF.  I  .EC.  IU-DGC  TO  80 
DO  *4  N-1.2 
o:  «  vi«e. i.i.m. 

D2  -  V2»*.  E(1,2.M  -  L2 1*D1 
VII. 2. Ml  -  D2 


Vd.l.H* 

CONTINUE 

CONTINUE 

CONTINUE 


01  -  Ull»VtX,2.M! 


I  -  IU  -  1 
DO  40  M-l.2 

Ft  ;.M  '  *  Fil.M*  -  U' l.M.D*F(I*l.l»  -  U<  I.M.2 >*F( {*1,2 J 
CONTINUE 

00  45  I  *  IU-2.IL.-1 
DO  45  MM.  2 

Ftl.Ml  •  Fil.M!  -  U  -I.M.1UHM.11  -  Ui  I  .H-2  >«Ff  1*1.2  ) 
•  -  v  I.M.1>«F  1*2.1  -  v, I.H.2  (•Fil-2.2 

CONTINUE 
RETURN 
END 

SUBROUTINE  LUDEC'A 
DIMENSION  A  2.2: 

COMMON /LUO  Lll.L2i.L22.U12. VI,  V2 
REAL  L11.L21.L22 

SUBROUTINE  COMPUTES  l-U  DECOMPOSITION  ELEMENTS 
LI  1  -  Ail.lt 
VI  -  1./L11 
U12  -  V1»A  1.2 
121  -  A  2.1 

L22  •  A . 2 . 2  -  L2l*U12 

V2  -  1./L22 

RETURN 

END 


CMAKE-O. 058 
CKLEBW-0.53 
CSCALE-7.5 
CHK  -  .25 
EDYMAX  -  5000. 


RL2-SC*T(REi 
ITRSU1-ITRSU+1 
f lll-O.O 
01114.0 

xmuuiu-o.o 

W'lt-999. 

XMUTOl  1  >-999. 

IL1-IL-1 

ITEUP1-ITEUM 

IMKST1-IMKST-1 

lWKSTL-lL-IWKST-d 

XRLXH-.5-XRELAX 

IWCEPl-IHKE^l 

IMCEL-IL-I>*£*1 


AIRFOIL  UPPER  SURFACE 


DO  1  I-ITRSU1.XTEU 


UfTA-U!l.2>-U( 1.1) 

VETA-VU.a^Vd.l) 

XE-X ( X , 2)-X( I , 1 ) 

YC-rii.aMrtx.u 

tal*i-a6s<xmu  :  i  .  i  >•<  ueta«xxi  a,  i  >*veta*yxi  i  i  ,  i  ) )/ 

{ kki t i.i >»Y€-x6»rxi < i , i ; )  i 
EVALUATE  VANDRIEST  DAMPING  FACTOR 
00  2  J-2.JLAST 

YPLUS-RE2*S0RTi RHO:l,l)*TAUMi*St I.J1/XMUI  1,1) 

D.  J  '«1 . -EXP i -YPLUS/ APLUS > 

IF  (DU). LT. 0.99551  GO  TO  2 

JD"JM 

CO  TO  100 

2  coin  I  HUE 
CO  TO  200 

100  DO  3  J-JO.JLAST 

3  OiJl-l.O 

EVALUATE  F OUTER  AND  XHUTI 
200  DO  A  J-2.JLAST 

uxi«.5*(ua*i,j)“U(!-i.j)  i 

VXI*.5*!V( I*l,J)-Yi I-l.Jl  i 

UETa-.5*(U(I.J'*1)-u:  I.J-1)  i 
VETa-.5*iV' I,j*1  >-v< i . j-i; 

HIJ)— (XXI{I.J)*UETA-XrrAII.J)*UXl“YETA(l.J)*VXl 
*YXIU,J»*VETa)/XJAC(I.J) 
F(J)-5(I,J)«ABS(hU>)*D:j» 

XHUTI l  J)-RE»RH0;1.J)«ABS(MU)  )•(  (VK«SI  I.  J)«D(  JIM  ) 

•GAMMA tl ) 

A  CONTINUE 
DETERMINE  fMAX.YMAX 
FMAX-0.0 
00  5  J-2.JLAST 
IFIF(J).LE.FMAX)  GO  TO  5 
FfttX»fU> 

JKAX-J 


5  CONTI  HUE 

YHAX  -  S!  I  UMAX) 

IP  (  JMAX  .EO.  JUST  1  GOTO  A 
C  USE  OUADRATIC  INTERPOLATION  TO  COMPUTE  FMAX.YMAX 
JMXM-JMAX-1 
JMXP- JMAX* 1 

JMXM  J-fKAX 5 /<  S ! I , JMXM ) -S U .  JMAX ) ) 

F2-(FKAX-F<  JMXP)  ;MS'l  . JMAX I -S ( 1 . JMXP )  ) 
F3-<F1-F2>/'SI  I.  JMXM -S;  I,  JMXP)  I 
YMAX-.5»(Sf  I.  JMAX  i-*S[  I.JMXMt-Fl/F3) 

FHAX-f  (JMXMI*f  1«IYMAX“SU,  JMXM)  )*F3»(YMAX-S< I , JMXM )  ) 
•  fYMAX-Sa.JMAX.’  i 
C  COMPUTE  ’ FHAKE ‘ 

A  FHAKE-YMAX»FMAX 
C 

C  ADOED 
C  COMPUTE  UDIF 
UDIF  -  0. 

I flag  -  o 

DO  13*  J-2.  JUST 

DX1  •  ABS  <  U’ I . J  > )  ♦  ABS<Y(I.JJ> 

UDIF  -  AKAX11UDIF.DX1 ; 

138  CONTINUE 

FMAKE1  -  CMX*YMAX«(UDIF«UDIFi/FMAX 
IF  t  FHAKE 1  .LT.  FHAKE  .  I  FLAG  -1 
FHAKE  •  AMI  MU  FHAKE.  FHAKE  1  - 


COMPUTE  KMUTO 
400  DC  7  J-2. JUST 

FXL EB-i . / ) I . *5 . 5* ( CKL  EB«S { 1 . J  )  /YHAX )«•*  > 

XMUTOl J  >-RE*CCP*ClALMRHO' I , J )»FHAK€* FKLEB* GAMMA ( I ) 
XMUTOl J)  -  AM1NU  XMUTOl  J ), EDYMAX ) 

7  CONTINUE 
COMPUTE  EDOYd.J! 

00  8  J-2.JLAST 

I F [ XHUTI I J i . Li . XMUTOl J ) )  GO  TO  8 

JTRAH-J 

GO  TO  500 

8  CONTINUE 

500  JTNH1-JTRAN-1 
DO  9  J-2.JTRH1 

9  EDDY; I. Ji»XMUTI ( J  j 
DO  10  J-JTRAN. JLAST 

10  EDOYf  J.JWXMUTOf  J> 


IF  (IPLOT.EO.O)  GO  TO  1 
OUTPUT 

Y2PLUS-RE2*S0RT  f RHO ' I . 1 i«TAUH >*S  I . 2 > /XHU! 1 , 1 
WRITE  < A, 202 1 1 , YHAX , fHAX . FHAKE , JMAX . JTRAN . Y2PLUS 
IF M PLOT!. £0.0)  GO  TO  l 
WRITE  14,203) 

DC  U  J-2. JLAST 

11  MRITE(8,26* )  J,Stl,J},FlJ),M{J),DU) .XHUTI  U) , XMUTOl J ), IFL AC 


1  CONTINUE 


ATRFOIL  LOWER  SURFACE 


KLAST-ITRSL-ITELd 
DO  12  K-2.KLAST 


UETAHIt  1.2)  — U  (1,1) 

VETA-V<I,2)-VU,1) 

XE-XI  I,2>-XU.li 
YE-Ya.aj-Ya.i) 

TAiJh»A6S  ( J04J 1 1 . 1  >•  ( UET A*XXI  a ,  1 ) +VET**YXI  ( 1 , 1  n  / 
fXXI ( 1 ,1 J*YE-XE«vXlt 1,1)  n 
C  EVALUATE  VANDRlEST  DAMPING  FACTOR 
00  13  J-2. JLAST 

YPLUWE2* SORT  { RHD(  1 . 1  l-T AIM  )•% ( 1 ,  J )  /X*l  ( 1 . 1  > 

DU  >»i.-ExPt -YPLUS/APLUS > 

I  IF  (D(J).LT. 0.9999)  CO  TO  13 

JO-J+1 
GO  TO  400 

13  CONTINUE 
GO  TO  700 

400  DO  14  J-JD, JLAST 

14  0U1-1.0 

;  C  EVALUATE  footer  and  xhltti 
700  DO  15  J-2  .JLAST 

uxi-.5*<u{ia.j)-ua-i.J>) 
vxi-.5»(va*i.jj-va-i,ja 
uETA-.5»(uafj-D-ua.j-in 
veta-.5»<  vu.j+i>-va,j-m 

H( J)*-( XXI < 1 . J)*U£TA-XETAi 1 . J)-UXI-YETA( I , JJ-VXl 
♦VXIU.J>-V£TA)/XJACU,J) 
f  I  J*-SU,  J  t*ABS!NUM*OU) 

X  WT I  (J  >-RE-  KHO  ( 1 ,  J  >  •  AB  S  ( M(  J 1  )•  i  \  VK*S  ( I ,  J  )-0  ( J  M  -»2 1 

•GAHMACJ 

15  CONTINUE 

C  DETERMINE  FMAX.YMAX 
FMAX-0.0 


00  14  J-2, JLAST 

IF(F( J) . LE.EMAX J  CO  TO  14 

FMAX-FU) 

JMAX-J 

14  CONTINUE 

YMAX-Sa,  JHAX) 

IF  {  JHAX  .EO.  JLAST)  GOTO  17 
C  USE  QUADRATIC  INTERPOLATION  TO  COW*UTE  FMAX.YHAX 
JMXM- JMAX- 1 
JMXP- JMAX*1 

F  l-(  F  UMXM  > -FMAX  » 1 1 S  a  .  JMXM ) -S  <1 ,  JHAX  ) ) 

F  2- 1 FMAX-F i JHXP M /  (  S il . JMAX ) -S ( I . JMXP  >  » 
F3-(Fl-F2)/(Sa  .JMXM»-Sa.JMXPn 
YMAX-.5*!Sa.JMAXi*Sl  I . JMXM >-Fl/F3 » 

FMAX-F t JMXM i*F 1* { YMAX-S l I ,  JMXM ) J-F3- ( YMAX-S II , JMXM ) ) 
•  <  YNAI-Sa,  JMAX)) 

C  COMPUTE  FMAKE ’ 

17  F MAX  f-y MAX* FMAX 
C 

C  ADDED 
C  COMPUTE  UOIF 
UDIF  -  0. 

I  FLAG  -  0 
DC  139  J-2.  JLAST 

oxi  -  A6S(U( i , j)  >  ♦  Assrva.jn 

UDIF  -  AMAXKUCIF.DXl) 

139  CONTINUE 


FMAXEl  -  O«-YMAX*<U0IF-UDIFJ/FMAX 
IF  (  FMAXEl  .LT.  FMAKE  »  I  FLAG  -1 
FMAKE  -  AMINK  FMAKE.  FMAXEl) 

C  COMPUTE  XMUTO 
900  DC  U  J-2, JLAST 

FKLE8-1 .  /  ( 1  .+5 .  5-<  CKLE8-S(  I ,  J )  /YMAX  >—4  1 
XMUTO!  J  )-«E*CCP*CLAU*RKOi  I .  J  )• FMAKE*  RCLEft* GAMMA ( l ) 
XMUTO:  J  i  -  AMI  HU  XMUTO  l  J  )  ,EDYMAX  J 
24  CDIfTimjE 
C  COMPUTE  EDDYfl , J) 

DO  19  J-2. JLAST 

IF<  XMUTIl Jj.LT. XMUTO! J) 1  CO  TO  19 

JTRAN-J 

GO  T01000 

19  CONTINUE 
1000  JTRM1-JTRAN-1 

DO  20  J-2, JTRM1 

20  EDOYfJ.JJ-XMUTKJ) 

DO  21  J-JTRAN, JLAST 

c  21  EDOYII ,J)»XMUlO( J) 

IF  (IPLOT.EQ.O)  CO  TO  12 
C  OUTPUT 

Y2PLUS-RE2*S0RT  ( RHOfl .  1 J-TAUM  )*S  1 1 . 2  > /XMU<  1 . 1 ) 

MRITE  <4,202  >1 , YMAX, FMAX, FMAKE, JMAX, JTRAN , T2PLUS.IFLAG 
IF( IPL0T1.E0.0)  GO  tO  12 
MBITE  J 4,203 J 
DO  22  J-J. JLAST 

12  MXITE(4.204)  J.Sil.J] ,F(J),N[JJ,0(J1 , XMUTJ ( J) .XMUTO! J ) 


MAKE 


00  33  J-2.JLAST 
JJ-JfJ 

UXI-.5*IU<  : 

VXI-.5*'  ' 

UETA-.5»iU!l.j*l '-U‘ I.J-1  > 

veia-.5*;vu.j*1j-v.:.j-i, . 

NIJJI— (XXIU.J)*UETA-XETA(I ,  Jl*UXI-Y£TAtl,J)*VXl 
♦rXI(  I. J>*V£TAI/XJAC il. Ji 
YNK-S<  I.J>-YNKC 
F(  JJ>-A&S(YNK*N(  JJi ! 

33  CONTINUE 
C  LOWER  PART 

00  34  J-2.JLAST 
JJ-JL-J-M 

UX!-.5«'U> 1L*»1.J!-U!!LM-1.J) } 

VXI-.5»'V!ILW*J,J--ViILH-1#J! : 

UETA-.5«IUUIH,  J-l  >-Ui ILW.J-1  • ) 

VETA».9*IV{1LW,J»1 >-V< ILW. J-l> » 

Mi  JJ)  —  (XXI  (  lLH.Ji»UETA-XnAl  ILM,  J  )«UXI -YETA t  UM,  J >*YX1 

♦yxkiu.  j>*veta;/xjaC(1Lm,j> 

Yrt(-S( ILM, J i+YMKC 
fi JJl-ABSiVMK*M< JJ) > 

3*  continue 
I  C  MAKE-CUT  points 

UXI-.5«(U( 1*1, 1 )-Ui 1-1,1 J : 

VXI-.5»i V( 1*1,  1 *-V  (  1-1,1 )  . 

UETa-.  5*  i  Ui  1 ,2  >-U' T LN.2 ; 

VETA-.5*iVlI.2)“V(  ILN.2U 

XE-.S-iXl  1.2)-XULH.2'i  i 

YE-.5«<YiI.2»-Y(ILM.2i ) 

XJ-XXI (1,1 >«YE-XE»YX1 ! 1 . 1 1 
NiJD— UXKI.l  )*UrU-x£»UXl-YE*VXI 

♦rxid.i  (•vetaj/xj 

YWK  — YWKC 

■  Fi JL >-ABSfYMK«WtJL) ) 

M< JL*1)-Ml JL i 
‘  f i JL+1 >-F ( JL ) 

I  C  COMPUTE  FMAX.YMAX 
|  FHAX-C. 

I  JJS-JL-JLAST+1 

JJE-JLfJLAST 
DO  341  JJ-J  ■: ,  JJE 
I F  ( F  l  JJ  ) .  LE . .  MAX i  GO  TO  341 
FMAX-f (JJ: 

1FIJJ.CT.JL)  GO  TO  342 
JMAX-JL-JJ*! 

IMAX-ILM 

YMAX-St  IHAX.JMAX)-*Y>*C 
GO  TO  341 
342  JMAX-JJ-JL 
IKAX-I 

Y MAX -S' IMAX.JHAX >-VMKC 
341  CONTINUE 

C  COMPUTE  FWAKE 

FMAKE-ABS ( YMAX  )»(UDIF«2) /FMAX 
C  COMPUTE  EDOYil.J, 

37  DO  38  J-l.JLAST 
YMK-ABS  S!l.Ji-YMKC. 

FXLEfl-1 . / ! 1 . -5. 5* ' CKlEBM-YMK/ABS ' YMAX  * >••* > 

38  EDOY' I ,J '-RE-CMAKE-RMO  I , J i-FWAKE-FKLEB 


DO  39  J-l.JLAST 
YNK-A6S<SllLM.J>-YWCC’ 

FKLEB-1.  /'  1.-4.5»  CKlEBM»YMK/ABSIYMAX1)m4 
39  EDOY ( ILM,  J  '-RE*CWAKE»RMO<  ILM,  J  >»FMAKE»FKLE8 
C  OUTPUT 

IFiTPLOT.EQ.Oi  CO  TO  30 

WRITE < 4,204 )X( IMlN. JMJN J , IMAX, JHAX.YIUX , FMAX , FMAKE .YWKC , IMIN. JNIN, 
-  U01F 

,  IF(IPIOTI.EQ.O)  CO  TO  30 

KLAST-7* JLAST 
1  WRITE  14,210) 

DO  42  K-I.KLAST 
jj-jl-*jlaSt-*.i 
J-JJ-JL 

I F i JJ. LE . JL /  J-JL-J J-l 
II-I 

IFiJJ.LE.JL.  Il-ILM 

WRITE  1 4. 204 »  t.SUI.JJ.UCII.JJ  .Hi  JJ )  ,F!  JJ  ! ,  EDDYl  II  ( J  I 


DO  40  J-JTEUP1.  JWCSTl 
ILW-U-I-1 

XL-CSCALE*'  SSI  ( I  )-SSU  ITEU/-XRUCH  )  /XRELAX 
f  ACTOR-TANH',  XL  ) 

DO  40  J-l.JLAST 

EDDY  1 1 ,  J )- .«•  U  EDOY  t  IT  EU .  J  >+EDOY  ( IHKST .  J  >  >*FACTOR* 

( EOOYf  IWKST  .  J  i-EOOY  <  IT£U. J  -■  >  i 
EDOYULW.  J  I  EOOYl ITEL,  J>*-EDOY(  IUCSTL,  JJ  J+FACTOR* 

I EDOVl IHKSTL.Ji-EDDY, ITEL.JJ « . 

40  CONTINUE 


C  REGION  OF  CONSTANT  EDOY  VISCOSITY  (VERY  FAR  FROt  AIRFOIL) 


If { INKE.GE.1L1  *  CO  TO  3000 
00  41  l-IHEPl.ILl 
ILW-IL-J ♦! 

00  41  J-l.JLAST 
EDOY 1 1 . J i-EDOYi 1MKE . J  ! 
EDOYi ILW, j.-EOOYi 1HKEL.J) 
41  CONTINUE 


C— **»—  FORMATS  *••••*•••*«•••■•»•* 

202  FORMAT  (1X.'I-',I4.2X, *YMAX-' . F11.4.2X, 'FMAX-' , F11.4.2X. 

-'FMAKE-  11. 4»2X. fJ*ax-’ , 13 ,2X , 7 JTRan-' , I3,2x, ’ Y2PLUS-  , Ell .4. 

-12 » 

203  FORMAT  f  4X . *  J  * , 4X . ' $ ( I , J )  *  ,4X ,  *F(  J) \»X, » VORT.  ' ,  4X .  *OAMP  .  ' . 

-4X, 'XMUTI  j4X. ’XMUTO7  * 

20*  FORMAT'2X.!3.4r2X.E10.4M 

204  FORMAT : 2X. TX'C- ' .F7.4.2X, 'IMAX-' .14. 2X, ' JMAX- ' , 14 , 2X . 'YMAX-' . 
-F7.4.2X, 'FMAX-' , F7 . *.2X , 'FMAKE-' , F7.4.2X. 

-•YMKC-'.F7.4,2X, 'IMIM-' ,I4,2X, * JMJM- I4.2X. 'UDIF- ' ,  F7 . 4 ■ 

210  FORMAT  I ix, ’ J  .  6X ,  S . I , J ) ' . 4X ,  U. I , J1 ' . *X.  ‘VORT ' ,4X,  F I J ) 1 , 
4X,'EC)0Y’) 

3000  RFTURN 


END 


C  SUBROUTINE  "LIFT"  COMPUTES  AIRFOIL  LIFT  AND  ORA C  COEFFICIENTS 
C  VISCOUS  CASE 

SUBROUTINE  LIFT  1CUCD) 


PARAMETER!  IM-2Y*. JM-lOO ) 

comon  /FLOMV/  uilM.JH).VUM.JM),p(IM.JM),RMO(lM.JM), 
1XMUI IM. JH  , EOOY ( IH, JM 

COMMON  /GRIO'  Xf!M.JM,.Y<lM,JMi.XXl(lM.JM>.YXI(IMlJM), 
1XETAI 1M.JM, YETAl IN. JM. .XJAC* IM, JM,,S< iH. JM) . SSI l IH# 
COMMON  /PI  IL.JL.IIE.I7EL.ITEU 
COMMON  /P 2  GAM. PR.PRT.XM1. RE. TH. SI. ALFA. ANGLE 
COMMON/OX-  OXl.DX2.OX3.OX4.OX5.OX4.OX7.Dxa. 0X1,0X10 
COMMON /MISC.'I  L  i.  IL2. 1L3.JL1.JL2.  JL3.1  Lc  Pi . llEHl, 

-  ITELP1 . ITELM1.ITEUP1, iTEUMl.GAHl  .CAK2.CAM11 .CTM.SIP, 

-  PINF.SlNA.COSA.PRI  .PRT1, REI.XL.XU.XLH.PI 
COMMON/OUMMY/  TEMP t IM.  JH , 4 1 


FX  •  0.0 
FY  -  0.0 


DO  1  I-ITEL.ITEUM1 
XXtK-X<I*l.i>-X<l,l) 


YXIIC-Y<J«-ltl)-YU,ll 

UETA«.$4(UU*1.2>-U'I-1, 1)HJII,2)-U(I,1)} 
YETA-.5*(V<  l*i12)-V{l*l,l>*Yll,2>-¥U,ll} 
XETK-.5«(XETA(i*l,lKXETA<Itl)> 

YETK-.5* ( YETAl I*1,1)+YETA(I,1) ) 

PX-.5«(Pf  I*.  -1KP(I,1)  » 

XMUK-.5-1 XMb<  1*1. 1  >*XMU(  1,1)  ) 

UX1-UI  1*1, 1 » —U C III) 

VX1«V<I*1.1>-V(I.1> 
XJK-l./(XXlK*YETK-XETK*YXlKi 
UX-XJK*IUXI»YETKHJETa*YXIK  I 
VX-XJMl  VXI«YFTX-VETA*YXIK ) 
UY-XJK*i-UXI*XETK*UETA»XXIK> 

YY-XJK* < - VX !%X E TK+VET A«XX IK1 
TXY-RE l*XMUK« 1 UY*YX ) 

TXX— PK*RE  I-XMUM  I  XLM*UX*X1»VY  ) 

TYY  —  PK*RE1«XMUK»(XLN»VY*XL«UX  I 
DXl— YX!K*TXX*XXIK*TXY 
DX2— YXlK*TXY*XXlK*TYY 

ua  -  .5*<u<i*i.u*uu.in 
va  -  .5*(vr i*i,h*vii.i> > 

RA  -  . 5* ( RHO ( I  + 1 , 1  ) ♦RMO ( 1 . 1  !  ) 

0X3— RA*l-OA*UA*YXlK  ♦  UA*YA*XXIK) 

0X4— RA»(-0A«VA«YXIK  VA*VA«XX1K; 


F*-FX*0X1*0X3 

FY-FY*DX2*OX4 

CONTINUE 


FLI  FT— FX*SIMA*FY«COSA 
FDRAG-FX*COSA*FY»SINA 
Cl-2.*FLIFT 
d>-2.*F0RAG 


RETURN 

END 


SUBROUTINE  ’OUTPUT*  PRINTS  OUT  FLOW  FIELD  INFORMATION 
SUBROUTINE  OUTPUT 


PARAMETER ( IM»2YY , JM-10C 1 

COMMON  /FLOMV/  Ut  IN.  JM  J ,  VI  IM,  JM)  ,P(  IM,  JN )  ,RHD(  IN,  JM  I . 
1XMUC1M.  JM)  .EDOYUM,  JM) 

COMMON  /GRIO/  XaM.JMi.YUM.JMl.XXKIM.JMl.YXKIM.JM), 
1XETA 1 IM, JMi .YETAl IM.JM) ,XJAC( IM. JM I . S ( IN . JM ) , SSI  ( IM  I 
COMMON  /PI'  IL.JL.ILE.lfEL.ITEU 
COMMON  /P2  GAM.PR.PRT.XM1. RE. TM. SI. ALFA, ANGLE 
COMMON /MI SC/ 1 Li. I L2. 1L3.JL1, JL2. JL3.ILEP1, ILEH1, 

-  ITELP1.ITELM1.ITEUP1.1TELW1.GAK1,GAK2.GAH1I.GXM.S1P, 

-  PINF.S1NA.C0SA.PR1 .PRTI, REI.AL.XLl.XLH.PI 
COMMON/OUMMY/  TEHP( IK. JM , 4 ) 


W12-XM1««2 

-  UPPER  SURFACE 

KRI TE (4,20* 

00  1  I-ILE.ITEU 
MRITE  <4.2001  1 
WRITE  (4.202) 


DO  1  J-l.JL 

T^AM*XHl?*P(I,J)/«HO<If  J) 


MRITE  (4.203',  J.  X<  I .  J  j  .Y  ( I  ,  J)  ,U(  I ,  J) ,  V(  I ,  Ji  ,P  ( I.  J) , 
B-',T  ”  T.EDorh.j! 


1RH0U.J1 
1  CONTINUE 


LOMER  SURFACE 


MRITE  <4.205. 

XLAST-ILE-1TEL 
00  2  K-l.PUAST 
I-ILE-K 

MR I T  E ! 4 . 200 )  I 
MITE  14.202 ) 

DO  2  J-l.JL 

T-CAM*XHl?*P ( I . J ) /RHO ( X . J ) 

MRITE14, 203 1 J, X( I , J ) ,Y(i,J),U{I.J),VlI.J).P(l 
RHO< I , J 1 . T ,  EDUY{ I , J j 


.31. 


2  CONTINUE 

-  MAKE  REGION 

MRITE*  4,204 


MRITE*  4,204 . 

ITEUPl-lTEU*! 

DO  3  I-ITEUP1.IL 
K-IL-I*! 

MRITE *4.200)  I 
MRITE 1 4. 202 ) 

DO  4  KJ-l.JL 
J-JLHLHI 

T-GAW*XM12»P{ I, J)/RHOl I .J) 
NRITE!«t203!j.Xri.J’  Y(I,J),uri.J>,V:l.J).P(I 
RHO 1 1 ,  J ) ,  1 . EOOY ( i , J  j 
4  CONTINUE 
DO  5  J-2.JI 

T«GAM»  XH 1 ?*P ( K . J ) /RMOf K . J ) 
MRITE<4,203iJ,XlK,Jl,YiK.J)aU(K»J),V(K.J),P(K 
RHO<K. Ji ,T,EDOY(K, J 


.J). 


.J). 


5  CONTINUE 
3  CONTINUE 

C  *«*••>  FORMATS  »»»•»<■■**»»*•»»••***»*»*«•«* 

20C  FORMAT  i  AOX .  ‘ •••  COLUMN'  ,  U.2X.  ’*••' 

202  FORMAT  13X.  J’.AX.’X  I.J  ’.SX.'Y'.I.J:  ,6X  U.  J'  ,**. 
iva.ji’.sx.'pli.Ji.sx. ‘rho;i.j;\6x/t.:,j,  .ax.'edoy  . 

203  FORMAT  f2X. 13. 8 , 2X. f iO. * :  < 

204  FORMAT!  1K1. AOX, ' -  UPPER  SURFACE  -  » 

205  FORMAT!  1H1.40X,  *- -  LOWER  SURFACE  - p  > 

206  FORMAT tlHl.AOX, ' -  MAKE  REGION  -  > 

RETURN 

ENO 

|  [tff*«*tTT”«  .>»■«»««  *»***  —  >. 

I  C  SU8R0UT I  ME  "TRANSI"  EVALUATES  THE  TRANSITION  FACTOR  FOR 
:  C  THE  TURBULENCE  MODEL 
|  SUBROUTINE  TRANII 

|  PARAMETER!  IW-25f . JN-100 ? 

COMMON  /HOHV  u!lM.JMJ.VIiM.JMl,P(IM.JM;.RHOIIM,JM., 
1XMUIM.JM  .EDOV.IM.JM  ,  _ 

COMMON  /GRID-  x  IM.JM  ,V!1M,JM  .XXHIM.JM  .YXl'JM.JM.. 
1XETA  1M. JM, .YETA. IM.JM  .XJACIM.JM..S  IM.JM, .SSlilM 
COMMON  PI'  IL.JI.IlE.ITEL.1TEu  , 

COMMON  /P2  GAM. PR. PRT.XM1. RE. TH.S1. ALFA. ANGLE 
COMMON 'Ml  SC < ILl.IL2.IL3.JLl,JL2.JL3.lLEPi.lL£Ml. 

-  ITELP1.ITELM1.ITEUP1 jTEUHl.GAMI.GAM2.GAMlI,GXM,SlP. 

1  -  P1NF .sInA.COSa.PRI .PRTi.REltXL.XLl.XLM.PI 

'  COPMON  /TURB1/ITRSU,  I TRSL  .IKKSi.IKKE.JLAST, 

1  -  XRELAX 

COMMON  XtXJMMV  /  TEMR!IM.  JM.A1 

COMMON /TURB2  'XMUT  I . JM , .  XKUTOl  JM  ,  ,D(  JM  ) .  M(  2*  JM  .ft  2*  JM » . 

>  ^  -  gamma i  in 

!  "  DO  1  1-1. IL 

GAMMA! 1 i-l.O 

1  CONTINUE 

;  C  SET  EOOY-O.O  IN  LAMINAR  REGION 
JLASTl-JLAST  *1 
UO  2  J-l.JLAST 
DO  2  f-ITRSL . ITRSU 
EDDY  I ,J  i-0.0 

2  CONTINUE 

00  3  J-JLASTl.JL 
DC  3  1-1. It 
EDDY' I , J  j-0.0 

3  CONTINUE 

00  4  I-ITEL.ITEU 
a  inoyji. U-0.0 


c  -———-*— —******************************** 

c  SUBROUTINE  'PSMOOTH'  COMPUTES  MACCORMACK ' S  PRESSURE  DAMPING 
C  COEFFICIENT 


SUBROUTINE  PSMOOTH! IXORY i 

COMMON1 /FLOMV^u!  IM*JM°:V(  IM  .  JM  )  .  P <  IM.  JM  ; ,  RHO !  IM.  JM  ) . 

^COMMON  /GRiD^K  !m| JM  fYf IM.JM, XXI (IM.JM? ,YX1 ( IM.JM ! . 
'  1XCTA' IM, JM ) . YETA ! IM. JM i ,XJa6 .lN,JMJ,S!lM,jM',SSl{iMl 

1  COMMON  /PI >  IL.JL.ILE. ITEL.ITEU 

COMMON  /P2/  GAM. PfLPRt.XMl. RE. TM. Si. ALFA. ANGLE 
;  CO^ON/MISC/ILl.lLirIL3.JLi.JL2.JL3,ILEPl.ILEMl. 

1  -  T  fELPl .ITELKl.ITEUPl.f TfUMl ,GAM1 .uAK2. GAM2I .GXM.S1P, 

-  PINF.SiNA.COSA.PRI.PRTI.REI. XL. XL1.XLM. PI 
COMMON /T I Mf H •  OTaU  IM.JM  . CF L . DTM I N . OTMAX . 8 ET A . DTVl S 
COMHON/SPECTR/  SPECT.  IM.JM  1  , PSMU ! IM. JM » 

C  IF' IXORY. EO. 2:  GO  TO  10 

c  - -  XXI  DIRECTION  - - * - 

DO  2  J-2.JL1 
DO  2  1-2, III 

PSMU f I , J»-A8S<  <P, !*1.JJ“2.*PII,J)*P(1“1.JJ !• 

1  <  p  !  i*i.  J  i42.*pi  I.J  i*p(M,  j/ :  j 

2  CONTINUE 
GO  TO  20 

C 

10  CONTINUE 

C  - - -  ETA-OIRECTION  - - 

DO  3  J-2. JL1 
DO  3  1-2, IL1 

PSMU  I  ,  J  J-ABSt  <PI  1,  >1  »-2.*P(  I,  J)*P(1,J-H  1/ 
l  ipa.j*i»*2.*P-:i.J»*P'i.J-un 

3  CONTINUE 

c 

20  RETURN 

END 


C-»— —•••••■—••-****— *■••**••*•*•-*•*•*••••**•***•**■“• 

C  SUBROUTINE  ' SPECS'  COMPUTES  SCALING  FACTOR  FOR  0AMP1NG 
C  COEFFICIENT 

SUBROUTINE  SPECT 

C 

PARAMETER'  IM-m.JM-100>  _  _ 

COMMON  /FLOMV,  u!  IM.JM  I  ,Y'  IM.JM! ,9<  IH.  JW  I  ,  PHOT  IW.  JMt . 
UHU  [M.  JM  ,EOOV  IM.JM 

common  /ofiio '  x  im.jm  ,v im.jm, .xxriM.jM, .yximm.jm: , 
1X£T.  IM.JM  .YEU  IM.JM  .XJ.C  IM.JM  ,S  IM.JM  .SS1UM 
COMMON  /P  I  IL.JL.ILE. IfEL.irfU 
roMMON  ,PJ,  G.N.PB.PRT.XM'  RE . TM. SI . XL F» . »NGl E 
COMMOP/MI5C/IU.IL2.IL3.JU.  JU.  JL3.  ILEPl .  1LEM1 

IXElPl.ITELMl.ITElJPi,  I TEUM1 ,GXM1 ,GXKJ  . GXM1I .GXH.S1P , 
-  r  ,p>.  si  ma.cosx,  pri.prti.be  i.xl.xu.xlm.p; 
CSMMOMTIMEM'  Dliu’IM.JM  .CEL.OTMIH.OTMXX.eEU.OTYIS 
CamOB/SPECIR/  SPECT'.lM.JMl.PlMUIIM.JMi 


I  C  PROGRAM  TO  REDISTRIBUTE  GRID  LINES  IN  ETa-DIRECTION 


PROGRAM  REGRID 
PARAMETER  -  iM-m.  JM-100 

DIMENSION  XtIM.JM  .Y.IN.JH..S  JM  .  SREF . JM . . SN  t  JM 
1  XNI IM, JM , , YNt IM. JH 

!  c 

.  OPEN  f UN  IT-1 . FILE- 'GRID*  . STATUS*1 OLD' i 

0PfNtUNIT«2.FILE-' NGRID '  . ST ATUS- ' NEW 1  i 
OPEN l UNIT-3. TILE- 'GOAT A’ . ST ATUS- ’ OLD 1 
REMIND  1 
REMIND  2 
;  ^  REMIND  3 

IL-IM 

JL-JM 

,  JLN-JM 

JE-JM 

I  C 

JLN1-JLN-1 

!  C 

REMIND  1 
DC  1  I-i. I. 

00  1 

1  READ  1 , 1000 > x  .v  ; . J 
l  1000  FORMAT -2E15.S 

i  1001  FORMAT; Elfc.R 

t  C 

DO  2  J-l.JLN 

2  READ: 5.1001 :  SREF 1 J ; 

I  C 

DO  3  1-1,11 

•  C 

S  1 1—0. 

DC  *  J-2.JE 

DS-SQRT  >  -x  I .  w-i 

:  *  v  •  i .  j  --y  : .  j-i  •  ’ «*2 
s.  J --$  J-l  ■  -OS 

A  CONTINUE 

I  C 

1  DO  5  J-l.JLN 

SN  ‘  J  '-SREFt  J’*S:  JEI/SREF!  JIN 
5  CONTINUE 

i  C  INTERPOLATE  IN  ET A-OIRECTION 
XNtl.l'-Xil.l 
YN .  I , 1  1  -Y (  I ,  1 
X  N ' I , JLNi-Xi I , JE 
YNt I , JLN  »«Y 1 1 , JE ; 

C 

[  K-2 

00  6  J-2.JLN1 

I  20  IF(SN( Ji.LE.SIK>)  GO  TO  10 

;  K-K-l 

!  GO  TO  20 

10  DX-x: I.K)-X(!.K-1 
,  DY-Yi I ,K  -Y( I ,K-1 

RS-( SN : J )-S ( K-l )  i / 1  S ( K i-S ( K-l 5 ) 

XN. I,J<-X'I.K-1 t*RS*OX 
-  YN  I  .  J  »Y i  I .K-l •♦RS*OY 

i  t»  CONTINUE _ 

I  C 

i  r  3  CONTINUE 

‘  ~  REMIND  2 

DO  7  I-1.IL 
DC  7  J-l.JLN 

hRITE.2. 1000.  XNI I. J,  ,YNi I. J 
7  CONTINUE 
i  r 

STOP 

;  eno 


PROGRAM  STREAM 


C  THIS  PROGRAM  MAS  WRITTEN  BY  CAPT  PAUL  D.  BOYLES  IN  SUPPORT  OF 
C  MY  THESIS  WORK  AT  AFIT.  AUG  1988 

C  THIS  PROGRAM  READS  IN  A  SET  OF  DATA  X.Y.P.RHO  AND  PARAMETERS  AS 
C  DEFINED  jELOH,  AND  COMPUTE  PSI.  H  ,  MACHS ,  CP  AND  CF  VS  X. 

C  IT  ALSO  COMPUTES  LIFT  AND  DRAG  IN  COMPONENT  FORM 

C  THE  DATA  IS  PRINTED  AT  POINTS  DEFINED  BY  THE  PARAMETERS  FOR  MINIMAL 
C  COST  IN  USING  THE  PRINT  SUBROUTINES. 

I  PARAMETER! IM-299 . JM-100 I 

COMMON  /FlOHV/  Ul IM. JM ) . V( IM. JM . , P ( IM. JM  i . RHO( IM. JM 
i  COMMON/GRID/XI  IM.  JMl.YUM.JM.  .CFUM  .ISTONiJH 

COMMON /STRH/PSI l IH . JH ) , HI IM. JM  J , XMAC I IH , JM  > 

C  IL  -  MAX  ti  POINTS  I  GRID 

C  Jl  •  MAX  M  POINTS  J  GRID 

C  ILE  a  I  POINT  AT  LEADING  EDGE 

C  IT EU  -  I  POINT  AT  THE  TRAIL1HG  EDGE  ON  THE  UPPER  SURFACE 

C  n EL  »  I  POINT  AT  THE  TRAILING  EDGE  ON  THE  LOWER  SURFACE 

C  XSTEP  -  MIN  DELTA  X  STEP  SIZE  FOR  NEXT  DATA  POINT  OUTPUT 

C  ySTEP  -  MIN  DELTA  Y  STEP  SIZE  FOR  NEXT  DATA  POINT  OUTPUT 

C  XMAX  -  HAXIHUN  X  BOUNDARY  DEFINED  BY  THE  PROPOSED  PLOT 

C  XMIN  -  MINIMUM  X  BOUNDARY  DEFINED  BY  THE  PROPOSED  PLOT 

C  ymax  -  MAXIMUN  Y  BOUNDARY  DEFINED  BY  THE  PROPOSED  PLOT 

C  YMIN  -  MINIMUM  Y  BOUNDARY  DEFINED  BY  THE  PROPOSED  PLOT 


INPUT  DATA 

OPEN (UNIT-  l.FlLE-'TDATA' . STATUS- ' OLD* I 

OPENfUNIT-  2.FILE-*STREAM'  . STATUS- ' OLO ' 

OPENtUNlT-  A.FILE-'PSlAW' .STATUS-' NEW 

OPEN  (UN  IT-H.FILE-'UV  .  ST  ATUS- '  NEW '  . 

OPEN! UNIT-  7.FIlE-*VEL’  .  STATUS- ' NEW ‘ 

OPENtUNIT-  3. FILE-'CPCF ’  , STATUS- 'NEW  > 

OPENfUNIT-  b. FILE-’ INFO’  , ST ATUS- ' NEH ' 

REHINO  1 

READ  <1.510)  IL 

READ  <1.510!  JL 

READ  (1.5101  ILE 

READ  (1.510!  rm 

READ  ”..510’  ITEU 

READ  '1.510i  U 

READ  i 1.510;  L2 

READ  (1.510:  L3 

READ  (1.510)  LA 

I BODY-O  FOR  NO  BODY  CONTOUR.  - J  FOR  BODY 
READ  (1.520)  XM1 
READ  (1.520)  ALPHA 
READ  (1.520)  RE 
READ  (1.520)  CV 
READ  (1,520)  DEL 
READ  : 1.510)  I BODY 
READ  1  1.520)  XSTEP 
READ  (1.520:  YSTEP 
READ  (1.520)  XMAX 
READ  1.5201  XMIN 
READ  '1.520)  YMAX 
READ  1.520)  YMIN 


DO  A**  J-i.JL 
DC  A*A  1-1.1L 

.  read : 2 . 500  <  x : i . j i , Y ; i . j , ,u: I . j ; . v; i , j j . p> : , j , . rhoi I , j : 

I  AAA  CONTINUE 

!  c 

j  C  HRITE  VELOCITIES  TO  X  STATIONS  IN  THE  MAKE 
DO  fefc  j  -JNUM.l.-l 

I  fcfc  HRITE  7.57b  'U'ISTON  I , . J . . I -1 . I NUM , . Y  ITEU-l.J 
|  DO  55  -  -  1 . JNUM 

i  5C  *°ITF  7.5?fe  u  Il-ISTON  I  *1.J  .1  =  1.1  HUM  ITEl-l.J 
HP'TF  '  S'”  t  \  .  !M  .  IN'JM 


I  577  FORMAT (16X.10E14.8 
j  C  COMPUTE  LIFT  AND  DRAG 

f  c 


DO  1  l*ITEL.IT£U 

IF  I  .EQ.  ITEU  i  GOTO  136 

A  -  1+1 

XETA  «  .  5*  t  “X  ( 1 . 3  >  ♦  4.«X(X,2>  -  3.«X(I.1M 
XETAP1  -  . 5*( -X(K,3i  +  A . *X( K , 2  I  -  3.*X(K,1)J 
YETA  -  .5«(-Y(!,3>  ♦  4.*YU.2)  -  3.+YU.1)) 
YETAP1  -  .  5*  ( -Y  { K ,  3 )  +  4.*Y(K,2i  -  3*Y(K.l)) 
XX1K»X<I  +  1.1>-X{I.U 
YXIK-Y( 1*1.1 J-Y!  1.  1 

UETA-.5*«Ui  1*1.2  ‘-U'Nl.l  i*U<  1 .2 »— Uf  1 . 1  j  ‘ 

VETA-.5*«Vl 1+1,2 )-V( l+ltll+V(l .2»-V(I.l 

XETK-.5+UETAP1+XETA 

YETK-.5+'YETAPl+YETAI 

PK-.5+IP1  I+l.li+PH.lH 

TP  1  -  GXM*P(K, U/RHOtK.. 1) 

T  -  GXM*P< I , 1 j/RHOf 1,1 ) 

XMU  -  SQRT<T«3)*S1P/(T*S1> 

XMUP1  -  SORT [ 7P1**3>*S1P/ITP1+$1 ' 

XHUK-.5+1 XMUP1+XMU' 

UXl-Ul 1+1,1 »-U( 1,1; 

VXJ-VI l+l.l»-V(I.l 

XJK*1 . / 1  XX1K+YETK-XETK+YXIK * 

UX«XJK*  <UX]*YETK-UET  A+YXIK ' 

VX-XJK+I VXI*YETK-VETA*YXIK i 

UY«XJK*<-UX1»XETK+UETA*XXI»0 

VVXJK«<-VX1*XETK+VETA«XXIK) 

TXY«flE I+XMUK* ( UY+VX ! 

TXK«RE1*XMUK*(XLM*UX+XL*VY1 

TYY«REI*XMUK»(XLM*VY+Xt*UXl 

0X1— YXIK+TXX+XX1K+TXY 

0X2— YXIK+TXY+XXIK+TYY 

TXP— PK 

T  VP  — PK 

DX5— YXIK+TXP 

0X6-  XXIK+TYP 

UA  -  . 5*(U( 1+1,1)+U(1,1) ) 

VA  -  .5*tVn  +  l,l)+V(l,l)) 

RA  -  . 5» ( RHO( 1*1,1 )+RHO( 1,1)) 

0X3— RA+IHJA+UA+YXIK  +  UA+VA+XXIK) 

DX4— RA+I-UA+VA+YXIK  ♦  VA+VA+XXIK) 


FXB  -FXB  +  0X1 
F XM  -FXM  ♦  DX3 
fyb  -fyb  +  0X2 

FYM  -FYM  +  0X4 
EXP  -FXP  +  0X5 


rvp  -FYP  -  0X4 

I  C  CALCULATION  OF  VORT1CITY  H( I . 1 )  ON  THE  SURFACE 
i  134  XXl  -  . 5+ '  Xtl+l.l  -  Xt 1-1 . 1 j  ■ 

YXI  -  . 5» 1  Y( 1*1,1  -  Y! 1-1, i:  , 

,  Xjc-1./(XXI  +YETA-XETA+YXI  ; 

UX«X JC* ( UX I +YET  A-UET  A+YXl - 
VA-XJC+I VXI*YET*-VETA«YXI ' 

UY-XJC*  -U*I+XETA+UETA*XXI ) 

VY-XJC*1 -VX1+XETA-VETA+XXI I 
BETA  -  XX1»XXI  ♦  YX1+YX1 
[  TXY  *  RE I*XMU*  *  UY+YX 1 

1  SIGMA  «  RE  I *XMU*  I  UX-VY ' 

,  CF i 1  -2*' -XX1+YXI+S1GMA  -  XXI+XXI  -  YXJ+YXI  ■•TXY  )/BETA 

'  __  1  CONTINUE 


CLIFT6  «  -FXB  +SINA  ♦  FYB+COSA 
FDRAG8  -  FXB  *C0SA  -  FYB+SINA 
CLB  »  ?  'MFTB 
cob  -  2.  .Rage 

FLIFTM  -  -IXM  +SINA  *  EYM+COSA 
FOPAGM  -  FXM  *C0SA  ■*  FYM+SINA 
CLM  -  2.+FLIFTM 
COM  -  2 . *  FDRAGM 

c  L  I  FT  F  -  -exp  *S I Na  *  FYP*COSA 
FDRAGP  -  FXP  +COSA  -  FYP+SINA 
CLP  -  2  .  »FL I  FTP 
COP  -  2.*FDRAGP 

l 

!  C  COMPUTE  MACH  NO. 

I  c 

I  00  2  J-l.JL 

i  DO  21  Nl.lL 

XMAC  J.J  -XM1*S0RT<  U' I . J'+«2+V- I . Jt-*2  /(GXM»P( I . J 
RHO  I.J 

P  I.J  *2 .  •  P  I.J  -GXMI 
!  2'.  CONTINUE 

2  CONTINUE 


ESTABLISH  PS1  VALUES  ALONG  OUTLINE  AND  ON  SURFACE 

PSnilE.l «  0. 

DO  200  I-ILE  . rrEU 
th  -  r ■ ; .3  -  y • i . l 

XH-X  I.3  -  X' I.  1 

:F  :  ABS'YH  . L’ .  l.E-10  YH  -  1 . €-10 

IF  ABS  XH  ,lT.  1. £-10  XH  -  l.E-10 

U*  -  -  U;1.3  ♦  +  +U'1.2  -  3 . +U1 I . 1  YH 

vx  •  *  -  V{ 1 , 3 ;  +  4.+VI1.2;  -  3.«Vil,lJ  j  ✓  XH 

H'l.ll  •  VX  -  UY 
VUP  -  -  .5»fV< 1*1.1)  +  VI  I.  in 
UUP  -  .5* fU( 1+ 1 , 1 )  +  Ull.lii 

RHOUP  -  .5*(  RHO< 1 + 1 , 1 >  *  RH0(I,1-  ?  /  RHOREF 
dxu  -  'x< i  +  i, i  -y< ! .  1  ■ 

DYU  -  Y'l+l.l'-Y'l.l/ 

DPSIU  -  1 VUP+OXU  -  UUP+DYU**  RHOUP 
PSI'I‘1.1  -  PS  I  I.i  *  DPSIU 

200  CONTINUE 


YKM-  Y(K.3t  -  Y( K, 1 i 
XKH-  X ( K. 3  >  -  X  t  K  .  1 

IF  ABSIYKH  .LT.  1.6-10)  YKH  -  1.E-1C 
IF  !  ABS( XKH  .LT.  1.6-10)  XKH  «  1.E-1C 
UKY-  t  -  U( K. 3 i  *  4 . *U l K , 2 :  -  3.*U(K.1 
VKX-  i  -  V( K.3)  ♦  4.*VIK,2)  -  3 . *V(K, 1 . 
HOC.  1  I  -  VKX  -  UKY 
ULO  -  .5*(U< K-l.l)  -  U( K, 1 )  ) 

YLO  -  -  .5*tV(K-l.l>  V(K.l)] 

RHOLO  -  .5«<  RHOCK-l .  1 ;  -*■  RH0U.15  }  t  ■ 


DXL  »  (XU 
DYL  «  f  V ' I 
DPSIL  -  ' 
PSHK-l.l 
201  CONTINUE 


( X(K-1. 1 )-X(K, 1 ) / 

)Y»K-1.1 )-YIK.l) . 

-  '  VLO*DXl  *  ULO*DYU*  RHOLO 
1.1-  -  PSKK.l)  -  OPSIl 


[  J  -  1 

K  -  1 T  EL— 1 

DO  325  I-ITEU+1. Il-l 
j  VUP  -  -  .5*1 Vt  1-1, J)  -  vti.jn 

VLO  -  -  .5UVUU.J)  *  VOC.JU 
OXL  •  iXtK.l  l-X(K+l.in 

oxu  •  :x<  i.i.-xu-l.m 

RHOUP  -  .5*'  RHOU-l.JI  ♦  RHOd.J  RHOREF 

RHOLO  -  .5*'  RH0<K+1.J)  *  RHOCK.J  RHOREF 

OPSIU  «  VUP*RHOUP*DXU 
1  DPSIL  «  VL 0* RMOL 0*0XL 

i  C  INTEGRATE  ALONG  UPPER  CUT 

PSI(I.J)  -  PSKI-l.Jl  ♦  DPSIU 
PSI(K.J)  -  PSKK-l.J)  OPSIL 
H(  1 ,  J  j  -  (UU.2)  -  U(K,2U  /  (YU, 2)  -  Y  ( K ,  2  ) } 

-(V(I*1.1>  -  V#I-i*l)i  /  (XU+l.U  -  XU-1,1 !  * 
W^K,  J  '•  -  (UU  .2  '  -  LHK.2  » )  >  <VU.2-  -  Y<K.2“ 

-  -i  VlK+l ,  1  1  -  VIK-1.1  :  X  i  X  *  1 . 1  -  XiX-l.l;1 

325  CONTINUE 

:  C  DEFINE  DELTA  PSI  THROUGHOUT  FLOHFIELO 

I  C 

DO  324  J-2.JL-1 
DO  22**  I-2.IL-1 

UA  -  ,5*(  UU.J-l  I+UIIJ)  : 

VA  «  .5*1  V(I.J-l)  ♦  V(I,JI  : 

RHOA  «  . 5* (  RHOU.J-1)  *  RHOd.J  '  '  RHOREF 
XXI  -  .5*1  X(  I-l.J  !  -  XU-l.J 

YXI  -  .  5*(  Y  (  1*1. J)  -  YU-1, J  - 

XETA  -  .5*1  XU.J-l)  -  XU.J-l) 

'  YETA  -  .5*1  YU.J-ll  -  Y(IrJ-l) 

XJAC  «  -  XXI*YETA  -  XET A*YXI  ; 

IF  <  A8S( XJAC i . LE.  1.06-7)  WRITE ( & , 530 1  I . J, XJAC. XXI , YXI 
*  XETA. YETA 

XJAC  -  1.  /  XJAC 

UXI  -  . 5* (  Ud+l.J)  -  UU-l.J)  ) 

YXI  -  .5*(  VU-l.J)  -  VU-l.J)  ) 

UETA  -  .  5* '  UU.J-l  i  -  UU.J-l  ■ 

:  VETA  -  .5*'  VU.J-l )  -  VU.J-l'-  ■ 

I  HU.Jc  XJAC*!  VXI*YETA  -  V£Ta»YXI  -  UXl*XETA  -  UETA*XXl 

DPSI  -  UA*YETA  -  VA*XETA  t*RHOA 
PSIU.J*  -  PSIU.J-1-  ♦  DPSI 
224  CONTINUE 
324  CONTINUE 


DO  225  J-l.Jl-1 

Hi  IL.  J  -  H< IL-1.J • 

PSIUL.J.  -  PS1UL-1.J- 
Hll.J  -  H(2.J- 
PSM.J.  -  PSI  1 2,  j: 

225  CONTINUE 

DO  224  I -1. 1 L 

HU.JL  •  HU.JL-1  l 

PSIU.JLi  -  PSlU.JL-1) 

224  CONTINUE 

;  r 

530  FORMAT  'Zv.’THE  JACOBIAN  IS  SMALL  \215.5E16.6 
I  C  FIND  CPMAX . CpHl N . MMAX . HM1 N , XMMAX 
DO  227  1  -1, IL 
DO  227  J-i.JL 

CPMAX-AMAX 1 l CPHAX .PI I.Jti 
CPMIN*AMINHCPMIN.P(  I  .  J  ■  - 
XMMAX-AMAX1 1 XMMAX. XHACI I.  J , 

UMAX- AMAX1  (  UMAX.  U  l  .  J 

uhin-aminuuhin.u:  i.  js  ,■ 

VMAX-AMAX1 ; VMAX.  V  I  .  J 
/MIN-AMINKVMIN.V  I.J 

;  IF  J  .60.  1  GOTO  227 

HM I N-AM INI' HM IN. H. I.J. 

WMAX-AMAX1 I HMAX.H  I.J 

PSI MAX  -  AMAX 1 ( PS  1  MAX .PSI  .I.J 

PSIMTN  •  AMINlfPSiHlN.PS l (I.J. 

227  CONTINUE 

WRITE ( 6 . 282  )  UMAX. VMAX 
HR  I T  E I  4 . 383 )  UNIN.VMIN 
WRITE  4 . 110  CPMIN. CPMAX, XMMAX 
282  FORMAT  , 2x .  ' UMAX- ’  .  E  1  b  .  ^  .  5  X  .  ’ VMAX*  , E 1 4 . 9 
383  FORMAT.  . 2X.  ’ UMI N- ’ . Elfe . 9 . 5X . ’ VMI N* '  . E 14 . ? 

-  C  OUTPUT 

I  C 

REWIND  4 
REWIND  11 
I  C  OUTPUT  BODY 

IFUBOOY.EG.O/GO  TO  3331 
1C-0 

DO  333  I-ITEL.ITFU 

WRITE  - . 2000  x  1 . 1  . Y  ; . ; 

WRITE  11.2000  X.1.1..Y  1,1 

IC-1C-1 

333  CONTINUE 
WRITE  t  4. 334  )  IC 

334  FORMAT ( J .It.  'NO.  OF  BODY  POINTS  -  ‘.15- 


333!  CONTINUE 


IF  '  Yd. 
IF  J  . E 
IF  ABS i 
ID!  -  ID1 
JJ  -  J 
JDI  -  0 
II-  1 


Y ‘ I . J .  .GT.  YMAX  .OR 
J  .EC.  1  .OR  J  . EC. 
ABS  i  Y.l.J— Yil.JJ- 


Y'l.J  .IT.  YM  IN  )  GOTO  400 
2  :  GOTO  41 

..T.  YSTEP  '  GOTO  400 


.GT.  XMAX  .OR.  XJI.l)  .LT.  XH1N  )  GOTO  4 


IF  (I  .EQ.  lit  .OR.  I  .EQ.  ITEL 


if  (  abs (  xii.i/  -  xui.n 


I  .EC.  ITEU)  GOTO  42 


.LT.  XSTEP  )  GOTO  4 


JDI-JOI+1 

WRITE1  4  .20001  Xa.J.'.Yil.Jl.PSUl.JI.HlI.Jl.XHACU.J, 

WRITE]  11,2000)  xa.Jl  .Yi  I.Jj.U:  I.  JJ  .Vil.Ji.Pil.J; 

ID-ID* 1 
«.  CONTINUE 
400  CONTINUE 

WRITEl 6.451  ID 

45  FORHATi . ,2X. ’NO.  OF  PSI ,H. XMAC, P,U. V  POINTS  «',1X,I5j 
WRITE (6. 441  IOI.JOI 

♦A  F0RMATi2X.,  ,2X. 'OUT-* . IS.2X. ' IN-' . 15. 

REWIND  3 
CFl  -  O.C 
ISEP  -  0 
SIGN  -  2.0 

DO  5  1-ITEl.ITEU 
C  CALCULATE  LOCAL  SKIN  FRICTION 

IF  t  1  . GE.  ITEL  .AND.  I  .LT.  ILE  >  CFU»  -  -CFlI) 

WR I T  E ! 3 . 2000 1 X ( 1 . 1 i . P  *  1 , 1 1 . CF 1 1 ‘ 

CFMAX-AHAXl ( CFHAX. CF ! I 
CFMlN-AMINl'CFMIN.CFd 
CPMAX— AHAX 1 <  CPMAX , P ( 1 , 1  ] 

CPMI N-AMI Ml ( CPHIN . P  < 1 . 1 j 

IF  I  I  CFL  .LT.  0.0  .AND.  CF-  •  .GE.  0.0  )  .OR. 

♦  '  CFL  .GT.  0.0  . AND.  CF <1/  .LE.  0.0  )  1  THEN 
IF  <  I  .GT.  ILE  i  WRITER. 561 J  XM-l.li, XII.I; 

IF  I  I  .LT,  ILE  i  HR  I TE 1 6 , 562 1  X( 1 . 1 ) .Xl 1-1,1 1 

XSEP  -  -  CFL*(X(I-l,l/-X;I.l>)/lCFL-CFllM  *  X'I-1.1. 

WRITE  1 6 . 564 )XSEP 
ISEP  -  1 
END  IF 
CFL  •  CF i I  • 

5  CONTINUE 
C 

IF  I  ISEP  .EO.  0  I  WRITE ( 6 . 563 ) 

561  FORMAT l 2X, ’SEPERATION  ON  THE  UPPER  SURFACE  OCCURS  BETWEEN  \F«.4, 

*  '  ANO  '.F8.4 

562  FORMAT ( 2X , 'SEPERATION  ON  THE  LOWER  SURFACE  OCCURS  BETWEEN  \F8.4, 

•  *  AND  '  .  F8 . 4 

563  F0RMATI2X. ’SEPERATION  OID  NOT  OCCUR  ON  THE  SURFACE'. 

56%  FORMAT  ( 2X,  ‘BY  INTERPOLATION.  SEPERATION  OCCURS  AT  X  -  \F8.4,/. 

C 

WRITE <6. 105 >CPMIN. CPMAX 
WRITEI6. 106 1CFMIN. CFHAX 


HRI TE i 6 , 120  i  WHIN, MM AX 

HR  I T  E 1 6 . 130  1  PS  I  Ml N . PS I MAX 

WRITE i 6.533 ,  ClB*CLM*CLP . CLP . CLB . CLM 

WRITER. 531  CDB*CDM*CDP. CDP.CDB.COM 

11C  FORMAT ; 2X . "CPMI N»" . F 12 . 5. 2X . "CPMAX-" . F 12 . 5 , 2X , 

-  "MAX.  MACH  NO. . F 12 . 5 . 

105  F0RMATI2X. "SURFACE  CPMI N-" . F 12 . 5 . 2x . "CPMAX-" . F 12 . 5 . 2X . / ; 

106  FCRMAT'2X. "SURFACE  CFMI N-" . T 12 . 5 . 2X . "CFHAX-" . F 12 . 5 . 2X .  , 

120  FORMAT!  2X. "MIN.  VORT . , E 16 . 9 . 2X . "MAX .  VORT  .  ,  E16 . 9  . 

130  FORMAT- 2X. 'MIN.  PSI.  -  '  .  E  16 . 9 . 2X  '  MAX .  PSI.  «\E16.9.' 
533  FORMAT  f  2X . ’CL  =’.FI3.6,2X.  .2X'Cl  DUE  TO  PRESSURE.  BODY' 

.  MASS  .  3F13.6. 

531  FORMAT- 21. 'CD  .F13.6.2X.  .2x‘CDDUE  TO  PRESSURE.  80DV 
'  MASS  ' .3F13.6. 

500  FORMAT  1X.6E16.9 

510  FORMAT  '17 

520  FORMAT  (F16.10' 

1000  FORMAT  '7E16.B 
2000  FORMAT  7Elb.fi 1 


Appendix  I:  Data  Reduction  Program  2.  Fortran  List in 


The  attached  -fortran  listing  is  a  data  reduction  code 

developed  by  the  author.  It  was  used  to  read  in  a  solution 

output  -from  the  Navier-Stokes  code  <N,  and  u,  v, 

and  p  time  step  residuals)  and  calculated  average  , 

average  maximum  and  average  minimum  values  and  average 

frequency  for  C^,  C^,  and  the  residuals.  In  addition  it 

produced  plottinq  files  for  N  vs  maximum  C,  and  and  N 

1  d 

vs  minimum  C.  and  C..  This  reduction  code  was  run  on  the 
I  d 

Cyber  computer. 
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PROGRAM  REDCL 


C  THIS  PROGRAM  mas  WRITTEN  8V  CAPT  PAUL  0.  BOYLES  IN  SUPPORT  Of 
C  HY  TMESIS  WORK  AT  AFIT.  OCT  1988 

r 

C  THIS  PROGRAM  READS  IN  A  SET  OF  DATA  N.CL.CO. VRHS.URMS .RES 
C  THE  AVERAGE  VALUES  ARE  THEN  COMPUTED  OVER  TIME  AND  TmE  MIN  MAX  VALUES 


STATUS- 'UNKNOWN ' 
.STATUS- ‘UNKNOWN  1 
.STATUS- 'UNKNOWN' 


P  AR  AMET  E R  ( I M-20000 .  NM-l  OOO .  Jtt-4  i 

COMMON  / FLOHV  /  N { NM.  JM 1  .CLMAX i  NM  5 . CLHIMI KM)  .CDKAJUNH ) . 

*  CDMIMINM, 

NL  -  MAX  *  POINTS  I  GRID 

NS  «  INITIAl  NS7Ef  TC  BEGIN  ANALYSIS 

Nf  •  FINAL  NSTEP  FOR  ANALYSIS 

YNAA  -  MAXIMUM  Y  BOUNDARY  Df FINED  8V  THE  PROPOSED  PLOT 
YMIN  -  MINIMUM  Y  BOU*©ARY  DEFINED  BY  THE  PROPOSED  PLOT 
XM1  -  MACH  # 

INPUT  DATA 

OPEN (UNIT-  1 . FILE-'REDDAT ' .STATUS-  OLD  > 

OP  EN  <  UN  I T*  2. FILE-' INFO'  . STATUS* 1  OLD '  1 
OPEN  (UNIT-  3.  FKE-'STUf  ‘  .  ST  ATuS- '  UNKNOWN 
OPEMIUNlT-  N.FUE-'CLOAT' 

OPENfUNlT-  5 . f  J  L  E  « ' CDDA  T 
OPENIUNIT-  t> ,  f  I  lE-  '  CLCD  ’ 

REMIND  1 
READ  (1,510)  NS 
READ  (1.510:  NF 
READ  11-5201  AMI 
READ  (1.520)  ALPHA 
READ  (1.520-  RE 
READ  (1.520  CV 
READ  -1.520  DE. 

WRITE  3.540  NS . NF 
WRITE  (3.550-  KM1. RE. ALPHA 
WRITE  13.559  Cv.DEl 

510  FORMAT ( 1 7 
520  FORMAT ( F 12 . 5 . 

540  FORMAT. /.2X.2I7 
550  FORMAT'  /.2X,  'MACH  $  -\F8.3. 

559  FORMAT  ' .  2  X . '  Cv  •’ ,F9.5.  ’ 

REMIND  2 


RE  -\F15.3,  1 
DEL  •’  .F7.2 


ALPHA  •* .  F7.2) 


NL  •  0 

CLL  -  0 
Ok  -  0 

axi  -  o 

CDXL  -  0 
NCLMX  -  0 
NClMN  •  0 
NCDMX  •  0 
NCDwn  -  C 
CL CD A  -  0 
CIA  -  0 
CDA  -  0 
COP  -  0 

UA  •  0 


VA  •  0 
Ra  -  0 


FORMAT  (10E13.5 

00  444  I  -I  .  IM 

READ( 2 , 500 i  RT. TAU.XLOG.YLOG. CL. CD. UNORM.VNORM, RES. CP 
NT  •  RT 

IF  *  NT  .IT.  NS  .  THEN 

cll  -  a 

CDL  -  CD 
MTl  -  NT 

GOTO  444 
END  If 
NL  •  NL  *  I 

CLX  -  CLL-CL 
CDX  -  COi-CO 

HRI TE ( 8 .500 -RT. CL. CD. CL/CD 

if  .  clx*:_x_  , l:.  : . ?  .and.  c.c  .  then 

NCLMX  •  NCLMX  ♦  1 
CL MAX l NCLMx  -  CLL 
NINCLMA.l )  -  NTt 
END  IF 

IP  CLA-CLXi.  .LE.  C.O  .AND.  CLX  .17.  0.0  )  THEN 
NCLMN  -  NCLMN  -  I 
CLMlNiNCLMh  -  CLL 
N.  NCLMN. 2  r  -  NTt. 

END  IF 

IF  1  COX*COXL  .LE.  0.0  .AND.  COX  .GT.  C.O  ;  THEN 
NCDMX  -  NCOMX  *  1 
COMAX ( MCOHX •  -  CDL 
NIMCDMA.3*  -  NIL 
END  IF 

IF  !  COX*CDXL  .LE-  C.O  .AND.  COX  . LT .  0.0  )  THEN 

NCDMN  •  NCDMN  -  1 
CDMIN'NCOMN  -  COL 
Ml NCDMN ,4 i  -  NTL 
FNO  !  F 
CLL  •  CL 
CDL  -  CO 
MTL  -  NT 
CL XL  •  CLX 
CO  XL  •  COX 
CLA  •  CL  ♦  CIA 
CLCDA  -  CL/CD  *  CICOA 
COa  -CO  -  CDA 
CPA  *  C®  ♦  CPA 
UA  •  UWORW  ♦  UA 
VA  -  YNORM  VA 
RA  -  RES  -  RA 

IF  <  ITT  ,  6E.  Nf  )  GOTO  100 
CONTINUE 


100  CLA  •  CLA  !  Nl 

CDA  •  COA  /  NL 

CLCDa  •  CLCDA  /  NL 
CPA  •  CPA  /  NL 

UA  -  UA  Hi 


V A  «  VA  /  ML 

write: 2.561 1  c1a.C0a.CPA 
WRITE  3 . 56e  ClCDa.CIA- COa 
WRITE  3.562  Ua.va.Ra 
WRITE. 3.*  NL. NT. NS. Nr 

CLMAXA  -  C 
CLMIMA  •  0 
CDHAXA  -  0 
CDMlfcA  -  C 
HI  •  NS 

DO  20C  l-l.NCLHx 

CLKAX A  «  ClHAXA  <*  CLMAX  I 
WRITE  -.560  M  .CLMAX  I.N  I , 1  -Nv 
200  N.  »  N  1,1 

DC  210  I-l.NCi.Mfc 

ClMIfcA  -  CLMIMA  -  CIM1N.1' 

HPITE<*.5t»0  M ,  I  .2  .  .  CLM I  N .  I  ;  .MI  ,2  -ML 
2 1C  N.  -  M.l.2. 

ML  -  NS 

DC  22C  I-l.NCOMX 

COmax a  -  CDwaaa  ♦  COMAX.  r 
HR  IT £  5. 560  fc  :.3-.CDHax  I. K  1.3  -Ml 
22C  M.  -  M> 1.3 

DC  23C  J-I.MCDmn 

C0M1NA  -  C0M1NA  -  CDMlN' I  • 

HR  I  Tt’.  5, 560  i  Mil.-.,  COM  IN  I  :.N.I.4,-WL 
230  ML  •  Nil.*.- 

If  (  NCLMX  .  £C.  0  Off.  HCLMk  .EO  C  THE* 

WRITE".  3.*  1  'SOLUTION  IS  MOT  PERIODIC* 

GOTO  15C 
END  IF 

CLMAXa  -  CLMAXA'NCLW* 

CLMIna  »  CLMIMA'MCLM- 
CDHAxa  >  CDhaxa/nCDHa 
CDH1NA  -  CDHIMA/NCDWN 

WRITE/ 3. 563.  Cl  MAX A . CLWl NA . MCLMX . NCL MN 
WRITE  3.56-!  CDwaxa.CDMIMa.MCDMX.nCDHW 
150  CONTINUE 
SdC  FOPhaT  17.^13.5.1? 

5e:  FORMAT  .  2>  .  ' Cl  AVC  =  \F9.t.'  CD  AVC  ■  '  .  F  9  .  t  .  ‘  Ce  AVC  -  . F  9 . 6 
5©t>  PORMa'  .21,  C^  CO  AVG  -  .F9.t.  C.  AVG  CC  AVG  =  .F9.6 

562  FORMAT  . 2X . ‘ URMS  a  «  ' . E9  vRMS  A  «  '.£9.-  '  OR  OT  •  ’.E9.4 

563  FORMAT  , .2*. 'CLMAX  AVG  •  '.F9.6.'  ClMIM  AVG  ■  .F9.6. 

'  HC.  .  ' .215 

5o-  FORMAT  i  .',2* .  'CDMAX  AVG  -  '.F9.4.*  COMIN  AVG  •  ’,f9.6, 

•  '  MCO  -  ' .215 J 

EMC 


Appendix  J:  Geometric  Progression  Program, 

Fortran  Listing 

The  attached  code  is  the  original  code  used  in  this 
work  as  supplied  by  Dr.  Miguel  Visbal  (37).  This  code 
generates  a  geometric  spacing  in  the  77  direction  of 
the  computational  domain.  A  line  of  constant  77  can  be 
specified  at  which  the  spacing  becomes  uniform.  This 
allowed  the  geometric  progression  to  be  controlled  when  the 
outer  boundary  was  large.  For  the  original  grids  used  in 
this  work,  step  sizes  in  the  77  direction  at  the  outer 
boundary,  20  cord  lengths  from  the  airfoil  surface, 
were  2.7  cord  lengths.  With  the  use  of  this  code  and  the 
redistribution  code  (appendix  k>,  the  spacing  for  the  same 
grid  became  a  constant  step  size  of  .6  cord  lengths  from 
a  distance  of  5  cord  lengths  to  20.  This  code  was  run  on 
the  Cyber  computer. 


1  15 


|  C  PROGRAM  TO  REDISTRIBUTE  GRID  LINES  IN  ETa-DIRECTION 

I  C 

PROGRAM  REGRID 
PARAMETER  >  lM-m.  JM-lOO 

DIMENSION  X>  IM.JM.  ,Y;  IM.  JMi.S.  JM:.SREFl  JMi.SNUH 
1  XHt IK.JM-.YNiIM.JM, 

C 

OPEN< UN IT*1. FILE-' GRID'  . STATUS- ' OLD' ) 

OPEN (UNIT *2. FILEa’NGRID' .STATUS-’NEH' > 
0PENIUNIT«2.FILE«’GDATa' . STATUS* ‘OLD ' ■ 

REMIND  1 
REMIND  2 
REMIND  3 
I  C 

I  IL-IM 

!  JL-JM 

i  JLN-JM 

JE-JM 

c 

JLN1-JLN-1 

I  C 

REMIND  1 
DO  1  I-1.IL 
DO  1  J-l.JL 

1  READ  1.1000)X:I.J!.Y(I,J. 

I  1000  FORMAT, 2EI5. 8  ' 

I  1001  FORMAT ( E16 .9 

I  C 

,  00  2  J-l.JLN 

1  2  READ! 5, 1001 i  SR6HJ) 


00  3  I-l.IL 

Si  1  ' 


.  JE 


I  C 

I  c 


DO  A  >2, 

DS-SORT  x  I . J  -x : I .j 
1  -  v .  I . J  *-Y  I  .J-1  '  )*»2 
S , J >-S  J-1 >*o$ 

CONTINUE 


DO  5  J-l.JLH 
SN'  J  i-SREFU)*S: 

CONTINUE 


JEl/SREFI JIN  : 


INTERPOLATE  IN  ETA-DIRECTION 
XN  v I , 1  ) -K ( I  .  1 

YN i I , I  i*Yl 1 ,  1  • 

XN ' I , JLN  »“X( l , JE 
YNII.JLH»-YU.JE< 

K-2 

DO  A  J-2.JLN1 

20  If ( SN i J ! . LE . S ( K ) )  GO  TO  10 
K-tf-2 
GO  TO  20 

10  OX-Xi I . K  •  -X r I ,K-1 . 

DY-Yi I ,K '-Yi 1 ,K-1 
RS-lSN Ji-SiK-1  1  )/«  S(K;-S(K-1» 
xn; I . J  *x < I.K-1 )*RS*Dx 
YN  I . J  *Y  I . K- 1 ) ♦RS*DY 
i>  CONTINUE 


3  CONTINUE 

REMIND  2 
DO  7  1-1. IL 
DO  7  J-1. JLN 

WRITE  2.1000,  XN . I . J . , YNi  1 . J 
7  CONTINUE 

STOP 

END 


I 

I 

I 


Appendix  K:  Grid  Redistribution  Program 


Fortran  Listing 


The  attached  code  is  a  modified  version  of  the 
original  code  supplied  by  Dr.  Miguel  Visbal  (37).  This 
code  reads  in  a  grid  produced  by  the  hyperbolic  grid 
generator  (appendix  G)  and  the  spacing  geometry  as  output 
from  the  geometric  progression  program  (appendix  J).  It 
linearly  interpolates  the  points  in  the  original  grid  and 
redistributes  the  spacing  in  the  r>  direction  to  match  the 
new  spacing.  A  new  grid  is  produced  with  better  spacing 
ch iracteri sties  at  the  outer  boundary.  This  code  was  run 
on  the  Cray  XMP. 
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C  PROGRAM  "STR t T CM! "  DETERMINES  THE  CORRECT  VALUES  FOR 
C  the  stretchtng  parameters  REQUIRED  Ik  the  mesh  GENERATION 
:  C  CODE  FOR  THE  DISTRIBUTION  of  THE  ETa-LINES 
:  THIS  CASE:  EXPONENTIAL  DISTRIBUTION  OF  THE  ETa-LINES  FROM 
!  C  ETA-C  to  £Ta«ETa:  .  AND  UNIFOHH  FROM  ETA-ElAl  TO  ETA-1. 

PROGRAM  STRECH  {INPUT .OUTPUT .TAPE5-INPUT .TAPE6-OUTPUT . TAPE1 ) 

|  C 

DIMENSION  SU99> 

.  C  INPUT  DATA 
JL-lOO 
JO-90 
jC1-2 
SMAX-20.0 
DSO-.OOOI 
INVERS-O 
Ci-10.0 
SIGN— 1. 

XO-Q. 0 

I  c 

JL1-JL-1 

JOMI-UO-1 

JC1M1-JC1-I 

CE-l  .0  FLOAT  JLi 

ETAl-Dt«FLOAT: JOMI 

ETA1C»DE*FL0aT : JC1M1 

i  c 

N-0 

10  N«M*1 

IF  N.GT.50'*  GO  TO  20 
EC1-£XP'C1 • 
vi-EXO'Cl*£TAlC  'ETAl  » 

; "ET Al«  ECI-I . 0  i*Cl»ECl* ' 1.0-tTAl 
S1»Smax«ETaI* i xl-1.0 
J 1-F*DS0-G1 

DFOC1-F-ETA1-EC1*  1.0-ETA1 

DG1DC1-SMAX*ETA1C*X1 

OF 1DC 1-OSO*DFDC1-OG1DC1 

XJAC«OF10Ci 

DC1— f  l/XJAC 

Cl-Cl-KKl 
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EOEXP.CI 
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C  COMPUTATION  OF  S  J 
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300  CONTINUE 
.  C 

.  c  COMPUTE  STRETCHING  FACTOR 
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I  C  OUTPUT 
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